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Variable width fcnts were adapted for use in a 1 6 - b i t 
environments and an existing font editor was modified to 
provide for the creation and maintenance of such fonts. A 
UNIX compatible file format was designed for the storage of 
digitized characters^ and a set of font-manipulation pro- 
grams were written. These developments enhance the digital 
typesetting caoability of UNIX. Thirty-four fonts were ob- 
tained from the Stanford Artificial Intelligence Laboratory 
(SAIL) and were modified for use under UNIX. The fonts 
offer a variety of sizes and styles; their selective use al- 
lows for a more compact and aesthetic display of textual in- 
formation in documents produced on a Versatec 1200-A 
orinter/olotter. 
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I 



INTRODUCTION 



A. BACKGROUND 

1. Tec nno 1 og i c a 1 Progress 

The invention of moveable tyce had a tremendous im- 
pact on man's environment. The invention of printing/ more 
than any single achievement/ 11 marks the line of division 
between medieval and modern technology" [Ref. 153. Techno- 
logical improvements to Gutenberg's invention continued at a 
snail's Dace through the latter half of the nineteenth cen- 
tury until the public demand for daily news reauired more 

rapid modernization in the printing industries. Constant 
improvements/ one of which was the use of electrical power 
to drive presses/ continued through the mid twentieth centu- 
ry until/ finally/ one could find printing rooms filled with 
linecasters/ complex electro-mechanical contraptions produc- 
ing hot metal t v p e / and cresses noisily spewing forth tons 

of paper each day. However, the public's appetite was seem- 

ingly insatiable/ and/ while press soeed was sat i sf actory / 
the entire process was slowed by the composition functions 
of line justification/ hyphenation/ spellino/ and so on. 
These functions still reauired human preprocessing or 
operator interruption of linecasters. The solution to this 
bottleneck was provioed by the computer and recent advances 
in text Processing. 



2 . Computer Assisted Typesetting 

The computer* aradual 1 y extending its influence into 
many unrelated f i e 1 a s * had now entered the printinq indus- 
try* Its employment was in assisting the typesetters/ not 
replacing them* Comouter assisted typesetting (CATS) was 
characterized by the comouter performing all line justifica- 
tion* page breaking* hyohenation* etc.; essentially the in- 
formation to be printed was being oreorocessed by a program* 
The result of this process was a tape* either a perforated 
paper tape or a magnetic taoe* which contained the processed 
text interspersed with commands to the printing device* 
specifing when to hyphenate* when to change typeface* when 
to indent* etc. In addition to processing text* the 
computer 1 s software had to be tailored to the specific 
printing apparatus. The taoe was designed to assist the 
electro-mechanical 1 inecasters in the setting of hot metal 
type* and presses continued to produce the print. 

Soon many newspapers and publishers were using com- 
puters to produce tapes of processed text* which drove the 
more conventional 1 i necast i no machines. Although the future 
of computers in the printing industries looked bright* there 
were repercussions ana even some failures. Labor revolted 
at the smell of further automation* and this problem was 
necessarily handled delicately. The WASHINGTON EVENING STAR 
was the first major newspaper to successfully assist its 
press operation with a computer [Ref. 6]. One such attempt 
failed. In 1962* the ARIZONA JOURNAL was founded* and its 
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publisher decided to begin with a computer, a GE 22 5 * to 
oerform text Processing functions and administrative tasks. 
GE 1 s computer oersonnel wor<inq on the project knew nothing 
of publishing newspapers* and the Paper’s staff knew nothing 
of computers. The software did not materialize in time to 
begin printing, and creditors foreclosed [Ref. 16]. 



3 . Computer Typesetting 

In the early 1960’s* there was a flurry of develop- 
ment in nonimpact printing. Previously, all printing was 
by impact* the striking of a raised shape of a character 
onto paner with some inking mechanism involved. Using new 
advances in xerography, photography, ana high speed control 
mechanisms* nonimpact printing devices were characterized by 
higher printing speeds* less noise* fewer moving parts* 
higher reliability* and a greater capacity to handle both 
textual and graphical information [Ref. 4 ] • 



In 1961 m i c h e a I P . Barnett* at MIT* designed a pro- 
gram which processed text and produced tape which arove a 
Photon 5b0, a pho t o t y pe s e t t e r . This particular photo- 
typesetter contained a disc with photographic images of 
characters from various typefaces. The typefaces were ar- 
ranged in concentric circles about the center of the disc, 
^s the tape was processed* a light source moved back and 
forth from the center of the disc to its edge while the disc 
rotated at high speed. An intricate timina mechanism within 
the Photon 560 ensured that pictures of the correct charac- 



ters in the correct typeface were e x o o s e o to the film behind 
the disc. From the film/ either lithographic plates could 
be maae or documents produced directly through soecial 
machines [ P e f . 11. Distinguishing between computer typeset- 
ting and computer assisted typesetting (CATS) is difficult. 
Considering the tremendous potential of nonimpact printers 
and the recent (last 10 years) advances in computer output 
microfilm (COM)/ computer typesetting is/ in this author's 
opinion/ the future direction in the printing industry. 
Comouter typesetting tends to be more software oriented. 
Consequently/ there tends to be less of a separation between 
the text processing and the actual character generation; 
continuity is more apparent in computer typesetting. In 
computer typesetting/ the computer sets "software" type; 
whereas/ in CATS/ the computer creates some tape which 
drives devices which set "hardware" tyoe. The state-of- 
the-art character generation techniques for computer 
typesetters are ohoto/opt i c / ohoto/scan/ and digital/scan 
[Refs. 2 ana 141. Briefly/ the three techniques are 
desc r i bed : 

a. Photo/optic 



Here/ photographic images of characters are 
stored/ and high speed access to these images allows them to 
be projected through a lens onto film or paper. Scaling is 
possible through lens switching/ and access times are 
several milliseconds per character. The presence of moving 
carts limits speed and reliability. 
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b . Photo/scan 



Again, Dhotoaraohic images of characters are 
stored. The selected character image is "scanned”; that is, 
horizontal slices of its image are projected seguentially 
from too to bottom completing the full character picture. 
Scalina is possible by expanding and/or adding duplicate 
scan lines. Again, the presence of moving parts limits re- 
liability. 

c. Digital/scan 



All character images are stored in memory as 
pictures composed cf "l's" and " 0 ' s " (bits either "on" or 
"off"). The character imaaes are plotted by a program pass- 
ing the digital picture, in bits, to static printing heads 
(one head oer bit) or by recording the digital picture, bit 
oy bit, with an electron or laser gun. Although scaling is 
not oossiole, this technique crovides the fastest character 
access and interfaces with printing devices with few moving 
parts. These last two characteristics are important advan- 
tages. One d i s ad v an t age # however, is that digital represen- 
tations show a "staircase" effect in large characters. 



Producing different typefaces can be accom- 
plished for each technique. The onoto/ootic and photo/scan 
methods require that a master disc of character images be 
made. Digital/scan devices acquire different typefaces from 
either of two ways. First, there are devices that can 



read 



a photographic character image and pass a digitized 



interpretation to memory for storage 



Secondly, there exist 



interactive programs (editors) which enable a user to 
create digitized character pictures IRef. 2} . There was no 
attempt to analytically compare the three techniques or to 
propose benchmarking methods as this thesis effort was res- 
tricted to a system which is hardware dependent on the 
digital/scan technique. 

Althouqh there is much onqoing research in the 
area of computer tyoesettinq, its application is well esta- 
blished in the printing industry. For example, as early as 
1970, a book was puolished entirely by computer typesetting 
(Ret . 31 . 

B. COMPUTER TYPESETTING UNDER UNIX 
1. System Design 

This section describes the system as it existed be- 
fore this author oegan his researcn effort, and, although 
many improvements were maoe, not all system components have 
been modified! however, t n e system may still be utilized in 
its original configuration if desired. The basic components 
of the system are described below: 

a . T r o f f 

Troff is a text processor similar to Nroff, and 
both were designed at the Bell Laboratories by the same au- 
thor (Refs. fi and 9). Troff, however, accents additional 



commands to change tycefaces (hereafter referred to, 



and 



later defined/ as "fonts"). Normally/ the output from Troff 
goes directly to a pho t o t y oe se 1 1 er . There being no such 
device at N P S / Troff has been modified/ and its output be- 
comes an intermediate file which is processed by Vts. 

b . Vts 

Vts is a virtual typesetter/ a program which 
takes the preprocessed text lines from the file from Troff 
and which then sets the required digitized character defini- 
tions into plot Duffers. The plot buffers are sent to a 
Versatec printer/plotter. 

c . Ed f 

Edf is a font editor/ an interactive program 
that enables the user to create ana maintain digitized 
fonts. In its oriqinal form it processed only fixed width 
fonts of a specific size. 

d. Font Library 

The oriqinal font library consisted of four 
fonts. Three containec the stanaard ASCII character set, and 
the fourth containea special characters for setting 
mathematical formulas. 

e . Display 

There is a display program which will plot/ on 
the Versatec/ all characters in a font. 
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The system components described above 



were 



designed and programmed by Professor G.L. Barksdale. They 
are intended to manipulate fixed width fonts, the charac- 
ters of which are all 16 oixels wide and 2 0 pixels high. A 
"pixel 11 is a unit of resolution (a Picture element) on a 



Dlotter 


• 


On 


the 


Versa t ec f 


there 


are 


approximately 


200 


P i x - 


els oer 


inch. 
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setting 


digitized 
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a 


plot 


buffer 


represents 
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SYSTEM DESIGN 
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2 . Enhancement Objectives 



The original objective of the thesis research was to 
increase the font library to include variable width fonts of 
various sizes. These fonts/ 3 4 in all/ were obtained in 
machine form from the Stanford Artificial Intelligence L a - 
ooratory (SAIL). Additional objectives were to modify the 
system components to handle the variable width fonts/ and to 
add to V t s a limited plot (simultaneous t ex t /graph i c s ) capa- 
bility. In conjunction with this author's thesis/ LT. P.M # 
Dovle adapted the Hershey Character Sets for use in graphics 
and typesetting. LT* Doyle developed a program which con- 
verted the vector formatted Hershey font files to digitized 
font files? a scaling option was made available in the 
conversion proaram. The modifications to the system tools 
were the results of both theses (Ref. 5]. The followinq se- 
quence was oesianed to attain the thesis objectives: 

a. Desian a UNIX compatible file format for digi- 
tized font storage. 

b. Convert fonts from SAIL to NPS file format/ 
correcting any detected errors. 

c. Modify Edf to handle variable width fonts. 

d. Modify the system font display program to display 
variaole width fonts. 



e . Mod ify T r o f f . 
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f . Modify V t s 



g. Document 

h. Document 
research (write the 



the new system (write a user's manual ) . 

the program development and the thesis 

thesis). 



The objectives enumerated in a. through d. were 
completed; however/ their comoletion required more time then 
was ant i c i Dated (primarily due to the debuggina and testing 
phases of program de ve 1 oomen t ) . Therefore/ objectives e. and 
f. were omitted. In their places/ a program called Signmkr 
was written. Signmkr sets type in the same manner that Vts 
would have/ had it been modified. Additionally/ its design 
included the capability of some simple text processing func- 
tions. Oojectives a. ana h. were completed. The user's 
manual was published separately as an Technical Note [Ref. 
7] and received distribution as such. Ihe remainder of this 
thesis documents the objectives meet and is concerned pri- 
marily with program desian and development. The final 
chapter presents conclusions concerning the resulting system 
configuration for computer typesetting under U N IX and some 
ideas for future developments in this field. 
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SAIL FONTS 



I I . 



A. DESCRIPTION 
1 . Origin 

A font is a collection of character images* all of 
which are of the same stvle and height* which are mapDed 
into some Character set. Fonts are in aeneral freely ex- 
changed among academic institutions* orimarily through ARPA. 
The SAIL fonts* namea for the agency from which acaui red* 
were obtained in digitized* machine-readable form on magnet- 
ic tape (Ref. 121. There were 34 fonts in all* and they are 
catagori zea as follows: 

a. Bodoni and N o n i e fonts. These two groups of fonts 
each have distinct oesiqns ana each contain variable wiath 
fonts of different sizes ana styles. Toaether* they account 
for 23 of the 34 fonts. 

b. GRFX (Graphics). 1 here are two fixed width 
fonts which provide a limited araohics capability. They are 
useful for setting flowcharts* tree structures* and simple 
graphs. They are also the only two fonts in which "kerning" 
occurs . 

c. Math. There are five fonts that contain special 
mathematical symbols for setting formulas. 
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d. SAIL10 



This font 



is the only 



text oriented 



fixed width font in the library. 

e. SIGNS. There are three fonts which are large and 
excellent for entitling documents and making signs: SHD15, 
SIGN22, SIGN41 . 

The terms usee to describe fontsr e . c . , variable 
width, kerning, etc.# and the meanings of font and character 
dimensions are discussed in the next section. Some of the 
acquired fonts were originally designed at MIT, others at 
CMU (Carneaie-Mellon), and the remainder at Stanford. Stan- 
ford generally names, or has renamed, all fonts so that the 
trailing character or numbers connote size in pixels. The 
scheme for naming fonts at IMPS is similar but denotes size 
in points, the traditional orinter's measure. The 34 fonts 
added to the library are listed in Taole I. 



/ 
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Font / Character Dimensions 



In order to manipulate fonts and the characters 
within them, there are attributes of fonts and their char- 
acters which provide information to typesetting programs. 
These attributes are the dimensions and accessing informa- 
tion. 

a. Font Dimensions 

A font is characterized by its height and its 
logical height, the two most significant dimensions. A 
third dimension, the width of the widest character in the 
font, is of less importance. The character picture of each 
character in the font is conceptually set in a rectangular 
frame which is as hiqh as the font's height and as wide as 
the character’s raster width. The logical height is the 
distance from the too of this conceptual frame to the base- 
liner the imaginary line on which the characters sit. For 
example, "ascenders”, such as an "h", "1" , or " t " , sit on 
the baselined whereas, " descend ers" , such as a "d" or "q", 
may extend below it. Two fonts are incomoatiple if either 
their heiahts or their logical heights differ. 

Font and character dimensions are measured in 
pixels which, once again, are units of resolution. On the 
Versatec printer/plotter, there are 200 pixels per inch. 
There is another descriptor of font height, the "point". At 
200 pixels per inch, one point is approximately 2.8 pixels 
or about 1/72 inch. Fonts are generally referred to as a 
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M 10 point font% an "8 Point font % and so on. Point size 
is a general size descriptor# pixel height being more exact. 
For instance# B D R 1 0 is a 10 point font which is 26 pixels 
high. N 0 N S # another 10 point font# is only 25 pixels high. 

Fonts are either fixed or variable width. Being 
a fixed width font implies that all characters within the 
font have the same width. Being variable width implies oth- 
erwise. Variances in character wiaths are a significant 
thorn in the text process i ng/comput er typesetting interface. 
The text processor recuires character widths to perform line 
justification. Fable 2 is an analysis of the character 
wiaths for M W 1 s ” from various families of both fixed and 
variable width fonts. An inspection of the table shows the 
lac< of any consistent relationship between font height and 
character width for fonts in general. As a rule then# Troff 
cannot compute a character width from the font height. How- 
ever# by examining the error percent based on a 10 point 
reference within specific families of fonts# there appear to 
exist useable relationships within each family. By incor- 
porating tables within Troff for each of the various fami- 
lies# character widths could be computed. The specifica- 
tions of such a scheme were not fully investigated# but the 
method appears to be a desirable alternative to the access- 
ing of font files by Troff for the character widths needed 
for line justification. Finally# fonts may be of different 
styes. NONS is an "upriaht" font# NONSI# an italicized ver- 
sion# and NON SB# a bold (heavier) version. 
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Font Height-Character width Analysis 
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Table 2 

b. Character Dimensions 

Figure 2 illustrates font and character Dimen- 
sions. The raster width is the width of the character pic- 
ture and is used in accessing the stored character oicture. 
The character width is the space (in pixels) the text pro- 
cessor will allocate a particular character on a line* and 
it may differ from the raster width. Character width and 
raster width differ only when kerning occurs. Kerning is a 
technique whereby characters may be set more closely to 
minimize white space. Tn a font that allows kerning, the 
left and right kerns define how close adjacent characters 
may be set . 
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FONT/CHARACTER DIMENSIONS 
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Figure 2 
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In setting characters with kerning/ the bit pictures within 
the kerns of adjacent characters must be M anded n . If the 
result of the "and” is clear (all zeros)/ then no character 
picture overlap will occur/ and the kerning is permitted. 
Otherwise/ to prevent the overlap/ kerning is aborted/ and 
the character spacing must be determined by raster width. 
Decisions on kerning are made whenever either of two adja- 
cent characters have coincident nonzero kerns/ i.e./ either 
the rignt kern of the left character is nonzero or the left 
kern of the right character is nonzero (or both). The capa- 
bility of setting fonts with kerning was neither a Property 
of the original system nor was it an enhancement objective; 
however/ to facilitate its future implementation/ kerning 
information is stored in character definitions and can be 
updated by the font editor/ Edf. The two fonts where kern- 
ing occurs/ GRFX10 and G R F X 1 4 / require no special treatment 
by typesetting proarams. 

Additional character dimensions are solely for 
accessing the bit picture of the character. The rows-from- 
t o o (rft) describes the number of blanx (all zero) raster 
lines above the character picture in the frame/ thus/ this 
part of the character picture/ which is blank/ need not be 
stored. Data-row -count (drc) is a count of the number of 
raster lines which form the visible picture and which are 
stored. Blank raster lines required to fill out the bottom 
of the picture frame are not stored/ and the number of blank 
lines needed is computed using the font height/ rft/ and 
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d r c . Figure 3 illustrates that portion of the picture which 
is storeo and the full picture which is excanced by a oro* 
gram. 



3. SAIL Font File Format 



The SAIL fonts were received as digit i z e d files 
written on a taoe oy a PDP-10 at Stanford. The PDP-10 has a 
36-bit word with four, 9-bit bytes oer word; therefore, 
reading files from the taoe into a PDP-11 file did not leave 
the information in a readily useable format. For each word 
of data from the PDP-10, six 8-bit bytes on the PDP-11 were 
required, the two high order bits of each byte being wast- 
ed. Conversion to a more useable, compact font file format 
was mandatory. The SAIL and MR S font file formats are 
similar by design; however, a few minor chanaes have result- 
ed in significant memory savinqs. Basically, a SAIL font 
file is broken into three sections: 



a. Header Table 



At the beginning of tne file is a header table. 
The character code col 1 at i no seauence is the indexing 
mechanism * o r the table, and the table provides random char- 
acter definition access ina, an absolute necessity when 
minimizing execution times for setting type. The table con- 
tains 126 w o r a s , the left naif of each word holding the 
character width and the right half being a pointer to the 
character definition. A zero character width in any posi- 



tion implies tnat the Particular character is not defined in 



the font 



b. Font Dimensions/Description 

The font dimensions follow the header tanl e: the 
font height# the maximum character width# and the font logi- 
cal height. Immediately following the dimensions is an op- 
tional ASCII description of up to 480 characters. Five 
characters are packed into each 36-bit word# and the 
descr lotion is terminated by an all zero byte (’VO*). 

c. Character Definitions 

The rema inner of the file contains the character 
definitions oointed tc by the header table. Each definition 
follows an identical format and contains character dimen- 
sions# the bit picture# and the picture accessing informa- 
tion. 



F iaures 4 and 5 illustrate# respectively# the 
SAIL file and character definition formats. 
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PICTURE STORAGE/EXPANSION 



7 

8 
9 

10 

11 

12 

13 

14 

19 



. .0000 
. 00. .0 
. 00. .0 
. 000 . . 
. 0000 . 
. .0000 
00.000 
00. .00 
00000 . 



.......... 



.......... 



Stored Dioitized Character Picture 



0 

1 

2 

3 



4 

5 

6 

7 .. 000 O 

8 . 30. .0 

9 . O 0..0 
10 . 000 .. 
11 . 0000 . 
12 .,0000 

13 00.000 

14 00. .00 

15 00000 . 

IS 

17 

18 

19 

iS 3 > l 



Expanded Character Picture 



F i qu r e 3 



30 



SAIL FONT FILE FORMAT 



Word 

0 

1 



36-bit 



-afr. — , > 


..CW 


PTR 


cw 


PTR 



ft 

* 

9 



cc 000 
cc 001 

Header Table 



0177 



0200 

0240 

0400 




J 










9 

9 






cc 0177 

Font Dimensions 

Font ASCII 
Description 



Character 

Definitions 



Character 

Definition 



Fioure 4 



31 



SAIL CHARACTER DEFINITION 




CD 



RW = Raster Width 
CC = Character Code 

WC = Total number of words in character definition 

LK = Left Kern 

RFT = Rows-from-top 

DRC = Data-row-count 

CD = Character Dimensions 

CBP = Character Bit Picture 



F iaure 5 
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4 . Character Set 

The ASCII and SAIL character sets are two different 
maopinas of characters into a code (0-126), Fiqure 6 il- 
lustrates the differences, while fiqure 7 displays the com- 
plete sets. Where the ASCII set contains controj charac- 
ters, the SAIL set contains some additional orintable char- 
acters. This situation was annoying since there were no 
hare-wired keyboards at NFS with which to select these char- 
acters. Consequently, to select characters occupying ASCII 
code oositions whicn are not printable, text processing and 
typeset t i na programs have software escape mechanisms to get 
at these characters. The escaoe mechanism is described in 
Chanter 4. 
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Listfont and Error Detection 



As oreviousl y described, the font files reao in from 
tape reauired conversion to a format more suitable to UNIX 
and the PDP-11. Prior to converting the files, Listfont was 
written. Listfont was desianed to examine a Stanford font 
file, ignorina wasted bits and interpreting 18-bit PDP-10 
halfworos as lb- bit PDP-11 full words. Listfont reads in 
the header table; it extracts the font dimensions and 
description, displaying them on the CRT screen, and Proceeds 
to process each character definition. In processina each 
character definition, Listfont performs computations to en- 
sure that, if the character and raster widths differ, there 
is valid kernina. Also, Listfont checks and flags nonzero 
left kerns of characters whose raster and character widths 
are equal. Additionally, using the picture accessing infor- 
mation, Listfont verifies picture storage. An optional ” - 1 " 
argument to Listfont causes the individual character dimen- 
sions and picture to be displayed on the CRT screen. Anoth- 
er type of error which Listfont detects is the presence of 
extraneous bytes in the file. 

In processing a file, Listfont counts each byte. A 
comparison of this byte tally with the file size indicated 
by an "Is -1 filename” proves the absence or presence of 
such extraneous bytes. The time invested in the desion and 
writinq of Listfont was returned by its success in detecting 
errors of the above types. Two files had characters which 
had nonzero left kerns and identical character and raster 



widths. Furthermore/ two other files were found to contain 
several occurrences of extraneous/ unused bytes. Such error 
detection was important in that it greatly assisted in the 
design of Transfile/ the oroqram to convert font files from 
the Stanford to the N PS format. Transfile uses the same er- 
ror detection techniques and accomplishes error correction 
concurrently. 

B . FILt CONVERSION 

1. N P S Font File Format 

Given the existing Stanford font file format/ the 
oesiqn of an NPS format was not difficult. There were 
several criteria for the design. First/ the design had to 
be compatible with UNIX [Ref. Ill and the PDP-11 ( 1 6 - b i t 
word processing). Second/ file size needea to be minimized 
to facilitate typesetting in the minicomputer environment. 
And/ third/ the format needed to provide/ as did Stanford’s/ 
the random accessing of character definitions. The NPS font 
file format is illustrated in figures 8 and 9. It is broken 
into three sections: 
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NPS CHARACTER DEFINITION 
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a. Header Table 

The header table/ at the beginning of the file, 
contains two, 16-bit words for each of the possible 138 
characters in the font. The indexing mechanism to the table 
is the character code. The first word of each oair contains 
the character width in the rightmost byte. The pointer 

structure, indicating the location of the character defini- 
tion in the file, consists of a block count (512 

bytes/block) in the leftmost byte of the first word and an 
additional byte offset contained in the second word. A max- 
imum block count of 255 and a maximum byte count of 32K al- 
low for font files to approach 160K bytes. A zero in the 
first word in any character position in the header table im- 
plies that the particular character is not defined in the 
font. 

b. Font Oimensions/DescriDtion 

Only three dimensions are stored. Font height, 
maximum character width, and font logical height are each 
stored in words. The ASCII description follows and is 
stored one character oer byte. It is terminated with a 
'\ 0 '. 

c. Character Definitions 



Here, the MPS format provides substantial sav- 
ings in memory. Four character dimensions are stored, each 
in a full word: the raster width, left Kern, rft, and drc. 
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The raster lines which comprise the visible portion of the 
character picture are stored sequentially on byte boundaries 
following the drc. 

d. File Advantages 

The header table in the NPS format is twice the 
size of that in the Stanford version; however, each NPS 
character definition stores only four dimensions as opposed 
to the six in a Stanford character definition. This trade- 
off results in no real savings in memory. Significant sav- 
ings occur in the storage of the raster lines of character 
pictures. In the Stanford version, raster lines wider than 
18 pixels occuoy one full 36-bit word with the following 
raster line beginning at the next word bounary ? hence, up to 
17 bits could be wasted. In the NPS version, raster lines 
begin on byte boundaries? therefore, no more than 7 bits 
will ever be wasted for any raster line. As an example, as- 
sume a fixed width font of 19 pixels is created and that 
2,01b total raster lines are needed to represent all charac- 
ter pictures. The NPS format would reauire 6,048 bytes or 
48,384 bits (10,080 of which would be wasted). The Stanford 
format would require 2,016 words or 72,576 bits (34,272 of 
which would be wasted). The NPS format would have stored 
the equivalent information in 2/3 of the memory reaui red by 
the Stanford format. Berg [Ref. 2] has stated that "as a 
rule of thumb, for 100 printing characters at 10 point size, 
approximately 8,000 (16-bit) words of storage are reaui red.” 
SAIL10 (120 printable characters), BDR10 (120), and NONS 
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( 96 ) have file sizes of 8010/ 6198 / and 3872 bytes respec- 
tively. The comparison is a general one in that Berg's rule 
specified no particular plotting density. For example* if 
the rule were applicable to a plotting device with a plot- 
ting density of 4 0 0 pixels per inch (twice that of the Ver- 
s a t e c ) * then one could conclude that the NPS font file for- 
mat generally requirec memory in accordance with the rule. 

2. Transfile and Error Correction 

Transfile was designed and written to transform font 
files from the Stanford format to the NPS format and/ in do- 
ing so* to detect and correct anv errors. Transfile takes 
pairs of arguments/ transforming the first argument of a 
pair/ which must name a Stanford file* to an NPS file which 
is given the name of the second argument of the pair. An 
odd number of arguments causes Transfile to exit. In 
transforming a file* the program first creates the NPS file 
ana writes out a blank header table. It then examines the 
header table of the Stanford file to determine the number of 
characters in the font/ reads in the font dimensions and 
description/ and processes the character definitions. As 
does Listfont/ Transfile ignores the two wasted high order 
bits of each byte ana compacts 18-bit PDP-10 halfwords into 
16-bit PDP-11 full words. It writes out the font dimensions 
and the description/ if any. Transfile also writes out the 
NPS filename in the event that the Stanford file had no 
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description 



In processi na each character, Transfile checks di- 
mensions to ensure compatibility and makes corrections if 
necessary. For example, if a character has eaual character 
and raster widths and a nonzero left kern, then the left 
kern is set to zero, and the prooer dimensions are written 
out. Listfont, as previously mentioned, detected this type 
of error twice. Each occurrence was in a font which had no 
other kerned characters; therefore, the error was corrected 
by ignoring the nonzero left kern, i.e., by setting it to 
zero. Tpansfile also detects unused (emoty) bytes in the 
file, essentially throwina them away. The proaram keeps a 
runninq count of bytes written out and marks, in a program 
data structure, the starting byte address for each character 
definition. 



After orocessi nq the last character, Transfile seeks 
to the beginning of the file and writes in the new header 
table. Upon finishing each oair of arguments, the program 
displays the file size in bytes. A comoarison with the size 
indicated oy an "Is -1 NPSfilename" verifies a successful 
file transformation. Files, once transformed, decrease to 
between 47-83 percent of their original size. Execution 
times were not measured for either Listfont or Transfile as 
both programs were intended to be run only once on any one 
file. 
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EOF 



A. EDF . . .THEN 

Originally# Edf was desianed by Professor Barksdale to 
provide the capability of creating and editing a particular 
class of fixed width fonts# all characters being 16 pixels 
wide and 20 pixels high. Edf was an interactive program im- 
plemented in the programming language C. In its edit mode# 
Edf would read an entire font file into a character array 
(128x40). Each character definition was accessed by its 
character code (0-127)# and its bit picture consisted of the 
next 40 bytes# two bytes representing one raster line in the 
character picture. The simple font design and data struc- 
ture facilitated easy character definition accessing for 
listing# editing# or deleting, etc. In the create mode# the 
array (128x40) was cleared# and the user began with all 
characters having blank pictures. Edf oossesed an efficient 
command handling mooule and input several and display 
routines. Using these routines as a skeleton# Edf was 
modified to edit and create fixed and variable width fonts 
of different sizes. 



B. MODIFICATION REQUIREMENTS 



Prior to modifying E d f to manipulate variable width 
fonts# certain reaui rements were first identified: 

1 , File Format 

Edf needed to be able to interface with the newly 
designed font file format. It had to be able to access 
character definitions# font dimensions ana description# and 
it had to be able to write out edited or created fonts in 
this new format , 

2, Commands 



From the set of commands available in the original 
version of Edf# a minimal subset of commands needed to be 
implemented. This subset could be defined by excluding the 
’’nice to have” commanas. The commands available under the 
improved version of Eaf are described later in this chapter. 



3, Memory Reaui rements 



Edf needed to be able to deal with fluctuating 
memory requirements due to the dynamic sizing of characters 
in the fixed and variable width fonts. Static data struc- 
tures could not provide such flexibility. Specifically# a 
buffer# large enough to hold the biggest character defini- 
tion# would be needed. Additionally# Edf would have to be 
able to store modified character definitions of varying 
sizes until the editea or created file could be written out. 
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<4 . Edit Status 

The editina and creating of variable and fixed width 
fonts increases the length of the interactive session, and 
the added complexity of vary i nq character dimensions can of- 
ten cause a user to forget what has been accomplished and 
what remains to be done during the edit session. Edf needed 
to be aole to provide some table or display/ showing the 
status of each character in the font/ i . e . / undefined/ de- 
fined but unmodified/ modified/ deleted, etc. 

5. Dimensions 

In addition tc being able to change character pic- 
tures/ the user must be able to change font and character 
dimensions/ and any change must be checked to ensure that it 
is a valid/ reasonable one. As examples/ a user must not be 
allowed to increase the character width of a particular 
character to a value greater than its raster width/ nor must 
he be allowed to change a font's height to a negative value. 
Edf must be able to compute the new rft and drc of a modi- 
fied character picture; however/ Edf should not be responsi- 
ble for ensuring that the modified picture is accurately 
described by all character dimensions. For instance/ if a 
user were to change the picture of the character M a ” / making 
it shorter and skinnier, Edf must be able to compute and up- 
date the rft and drc. The user would then be responsible 
for making the appropriate adjustments to the character and 
raster widths of "a". Such restrictions are necessary to 
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limit program overhead. 



C. CONCEPTS AND TECHNIQUES 



1. Concepts 



There are several concepts which make up the confi- 
guration of the interactive font edit/creation process. A 
character buffer holds the character definition being modi- 
fied/ a linked list manaaes the modified character defini- 
tions/ and a file/ if in the edit mode/ represents the in- 
formation (character definitions) requiring changes. The 
UNIX system routine All oc (II) (Ref. 13) provides temporary 
memory to store modified charcter definitions. Figure 10 
illustrates the file/work area configuration. 
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Edf FILE/WORK AREA 




Modified Character Definitions 



Figure 10 
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2 . Techniques 



a* Current Character 

"Current Character" (cc) is a pointer to a char- 
acter position (0-127) in the font being edited or created. 
Any command takes the character definition pointed to by cc 
as its operand. The character definition referred to by cc 
is never loaded into the character buffer unless some com- 
mand requires it* Edf prompts with the octal value of cc, 
initially 0, followed by "> M . The current character may be 
incremented, decremented, or set to any value in the range 
0-127. Wraparound occurs automatically when incrementing 
above 127 or when decrementing below 0. Whenever cc 
changes/ Edf determines/ before executing any command/ if 
the character definition in the buffer has been modified. 
If so/ Edf reads the modified definition out to the linked 
list and then executes any awaitina command. 

b. Character Buffer 

The character Duffer is 4000 bytes long and is 
large enough to held the biagest character allowed within 
the limitations of font height and character width. Edf 
will edit or create fonts up to 120 pixels (about 42 point) 
in height and characters uo to 255 pixels wide. There is a 
routine responsible for loading character definitions into 
the character buffer. Whenever a command requires a defini- 
tion/ this routine will first inspect a global flag which 
indicates if the definition pointed to by cc is already in 



the buffer. If the definition pointed to by CC/ the operand 
for any command/ is not in the buffer/ this routine will 
load it into the buffer from one of two places. First/ de- 
finitions which have been previously modified or definitions 
in a font being created will be loaded into the buffer from 
the linked list. Otherwise? the definition is accessed ana 
loaded from the file being edited. In loading the buffer/ 
the character dimensions (raster width/ left kern/ rft/ and 
drc) are stored in the first eight bytes. Then/ using the 
rft and the raster width/ the reauired number of blank lines 
are inserted into the buffer. For example/ a raster width 
of 17 requires 3 bytes for storaoe. If the rft were 4, then 
4 blank lines or 12(4x3) zero bytes would be inserted. 
Next/ the routine uses the drc and raster width to read the 
digitized Portion of the character picture into the buffer/ 
and / finally/ usinq the rft/ drc/ and font height/ it com- 
putes and inserts the necessary number of blank lines needed 
to complete the character picture. 

c. Character Picture 

The character picture was expanded when the 
character definition was read into the buffer. The picture 
is accessed beginning at the ninth byte ana is displayed on 
the CRT screen with line numbers from 0 to "font height-1 M • 
The width of the matrix in which the character picture is 
displayed is equal to the number of bits in the bytes re- 
quired to store a raster line? therefore/ unless a 
character’s raster width is a multiple of 8 / its displayed 



0 i c t u r e will make the character apnear wider than normal/ 

1 . e . / if a character’s raster width is 17 and the font 
height is 2 0 , then the character picture will be displayed 
in a 20x24 matrix/ since 3 bytes (24 bits) are required to 
hold a raster line. 

d. Linked List 

The linked list contains a node for each modi- 
fied charcter definition. Each node contains the character 
code/ which is the ordering criteria for the list (the 
lowest code is olaced at the head of the list)/ a pointer to 
the block of memory (provided by Alloc(II)) hold i no the 
character definition/ the status of the character’s modifi- 
cation ("m M -modified/ "i" -included/ or " d" -deleted)/ and a 
pointer to the next node in the list. A dummy node with a 
character code of 32677 marks the end of the list. 

e. Font/Character Dimensions 

Having adced or chanced a character picture/ the 
user may want to change or may need to change character di- 
mensions. Also/ he may wish to change font dimensions or 
the font description. There is an interactive module which 
is quite versatile in allowing these changes. The module is 
described in the command descriptions. It displays a set of 
instructions uoon entry and has a uniaue prompting symbol. 



f. writinq Out a Fon't File 

In writinq out a file/ Edf first writes a blank 
header table followed by the font dimensions and descrip- 
tion. Then, beginning at character code 0, Edf incorporates 
modified character definitions from the linked list with un- 
changed definitions from the file. It maintains a byte 
count, in 512-byte blocks and bytes, of oytes written. Once 
the last definition has been written out, Edf seeks to the 
beginning of the new file and writes in the new header 
table. Eaf will remove the new file from the directory if 
no character definitions were written, i.e., the user wrote 
out a font in which he had deleted all characters durinq the 
edit session. As a final gesture, Edf displays the new file 
byte size in decimal before quitting. 

0. CAPABILITIES 

1 . Invok i ng Edf 

The current version of Edf is considerably larger 
than its oredecessor, a growth resulting from the aodition 
of modules to manipulate the more complex and more dynamic 
format of the new font files. Creating a font may be accom- 
plished by one of several means. First, a call to Edf with 
no arguments indicates that the user desires to create a 
font from scratch. The user must soecifv the characteris- 
tics of the new font and then use the "a" (add) command to 
create specific characters at each character position. Re- 
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peating this process for 128 characters can become exceed- 
ingly tedious. A more efficient option is to create only a 
few new characters anc to then use the " i " (include) command 
to include other characters from a compatible font. A third 
option/ somewhat similar to the second/ is to use the " d " 
(delete) command to remove unwanted characters from a 
sel ec ted base f ont . 

To edit an existing diaitized font file/ Edf re- 
quires an aroument consisting of either a font file name or 
a complete patn name. In the first case/ the font editor 
assumes that the font is located on the directory 
'* / .fonts. 01/font/" ano preoends that strinq to the argument 
before issuing a system call to open that file. If a com- 
plete p a t n name is used/ Edf will open that font file. If 
the font file is missing or if the font file contains in- 
valid information/ then Edf will exit with an appropriate 
error message. A Nershey font [Ref. 51/ digitized to any 
desired size and subject to the limitations discussed later/ 
can also be edited. References 5 ana 7 provide excellent 
descriptions of the Hershey fonts. Some examples of valid 
calls to Edf are listed below: 



edf 



This indicates that the user desires to create his 
font. He may give it any name when he writes it out/ 
i ng the edit session. 



own 

end- 
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edf SIGN41 



The user wants to edit SIGN 41 on "/.fonts. 01/font". 



edf / u s r /do y 1 e / f on t s /H T R 42 



The user wants to edit an ex i st i no Hershey font file 
called HTR42? a Triplex Roman font at 42 point » on directory 
"/usr/doyl e/fonts/" . 



edf HSP20 



The user wants to edit an 
called HSR20 ? a Simolex Roman 
"/.fonts. 01/font/". 



existing Hershey font file 
font at 20 point? on directory 



edf -HGE 36 

The user wants to create a Hershey font file in the 
Gothic English tyoe at 36 point. He may write it to any 
directory after it has been digitized. 



edf -HCS 

The user wants to create a Hershey font file in Complex 
Script type. The point size defaults to 10 point? and the 
font may be written to any directory at the conclusion of 
the edit session. 
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2, Commands 



The basic command line consists of three parts: the 
current character selector/ the command itself# and argu- 
ments# if any# to the command. 



a) <number> 

Change the current character to <number>. The 
number may be octal Corecede d by a zero) or decimal. Any 
number greater than 127 is converted to 0, and anything less 
than 0 is converted to 127, Any command may acpenbed to 
<number>. The effect is to change the current character 
first and then to execute the apoended command. 

Examples: 0176# 0# 161# 78c 0 25# 16a, 



b ) t ! - 

Increment (decrement) the current character, Wrap- 
around occurs as in <number> above. Either <t> or <-> may be 
used but not both on the same command line. Any command may 
be appended to either, and the effect is to increment (de- 
crement) the current character first and then execute the 
command. Onlv one H + " or may be used on a command line. 

Examples: +1# -# +# +e# +c0 40. 



c) (<number>) ! [ + ] ! l-)a 



Aad a new character to the font at the current char- 
acter position. The "a"(add) command is complex. A 
"p"(Darameter) command is executed automatically. The 
displayed instructions to input the dimensions of the new 
character must be followed. The new character is being de- 
fined at the current character. After exiting the parameter 
command loop/ the user may use the "c" (change) > "e" (edit)/ 
"s" (shift)/ or " I " ( 1 i s t ) commands to form the desired char- 
acter picture. The character buffer has previously been 
zeroed. If the user uses <number>» or to change the 
current character before he is satisfied with the new char- 
acter oicture, the unsatisfactory picture is stored. If this 
happens/ the character picture may be relisted and changed. 

Examples: + a/ -a/ 056a/ 19a/ a. 



d) (<number>) 1 [ + 1 1 ( -] c ( <numhe r > 1 (<numoer>J 

Change lines " s" through "e"/ prompting for each 
line. "c" alone sets "s" to 0 and " e" to "height-1 " . "c" 
followed bv one number sets both "s" and " e " to that number, 
"c" with two numbers sets "s" and " e" accordingly. The 
numbers may be octal or decimal/ and a space is reguired 
between two numbers. 
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Examp I es 



fc , 



cO 1 0 , 077c 1 0U4, 



+ c 1 0 



c , 



e) dl<number>] [<numoer>] font file 

Delete characters "s" through "e". "d" alone sets 

M s" to 0 and "e" to 127, effectively deleting the entire 
font, "d" with a single number deletes that character code, 
"d" with two numbers deletes " s " through "e" inclusive. 
Numbers may be octal or decimal, and a space is reauired 
between two numbers. 

Examples: d, d5, d 0176, a 0 057. 



f) [<number>] ! [ + 1 ! t-1 e [<number>] (<number>] 

Edit lines " s " through "e"» prompting for each line. 
M s" and "e" are set as in ”c" (change). While editing a line, 
"cntl-d" completes the line as it was. This command uses 
the NPS line-editor functions in the terminal handler. 

Examples: e, 077e0 10, +e 3 5, -e, 017e 12. 



g) f 
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Turn on (off) a flag controlling the display of 
character dimensions. Once turned on, character dimensions 
are displayed every time a character definition is fetched. 
Displaying is turned off by a subseauent "f". "f" may be 
orepended to any command. 

Examples: f, fl, + fe 0 10, 0t76fl 0 10. 



h) i (<number>l (<number>J filename 

Include characters "s" through "e" from the font 
file "filename". "s" and "e" are set as in the "d" (delete) 
command. If the font file being edited or created and 
"filename" are not compatible, then the include will not oc- 
cur. Subseauent uses of "i" do not reauire "filename"; un- 
less, of course, the user wishes to include from another 
font file. 

Examples: i 0 057 BDJ8, i HCS20, i. 



i) (<number>] ! [+] ! [-1 1 [<number>] [<number>l 

List lines " s " through "e" of the current character, 
"s" and "e" are set as in "c" (change). 

Examples: +1 0 10, -1, 1, 0761, 1 12. 



57 



j ) n 



Display the font description ana a table reflecting 
the status of the ecit session. The table provides an ex- 
cellent means of managing edit work. Figure 11 illustrates 
the results of executing an " n M command durina an edit ses- 
sion. 



5?> n 
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'I' included 'D' deleted *n* aodified 



Example: n . 



Figure 11 



k ) O 



The " o " (parameter) command executes an interactive 
module of E o f which allows the modification 
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of character and 



font dimensions and description. A set of instructions will 
be displayed and may be recalled if required. This module is 
quite versatile. The user must keep in mind that character 
and font dimensions are being changed, not character pic- 
tures. 

Example: p 



1 ) q 



Quit warns once if changes have been made and not 
written out; otnerwise, it exits, closing any open files. 



E x amp 1 e : o . 



m) [<number>l ! ( + ) ! E — 1 s 1 Irjuld C<number>] [<number>l 

Shift lines "s" through "e" one pixel left(l), 
right(r), up(u), or down (d) . The resultino lines are au- 
tomatically displayed. "s" and " e " are set as in 
"c" (change) , 

Examples: +s!0 10, 044su 10, sr, -sd. 



n) w filename 
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Write out the font file beinq edited or created to 
"filename". "w" must have a "filename" and will not allow 
the user to write to the font file being edited. "w" 
displays the byte size, in decimal, of "filename" and then 
performs a "q"(quit). Writing out a font file takes longer 
than writinq out a normal file. 

Examples: w temo, w /. font s . 01 /font /HC 120 . 



o ) <rubout>!<break> 

Either key causes an interrupt which is trapped. 
Whatever command was executing is stocoed, the previous en- 
vironment restored (the command loop is reentered), and the 
user may continue. Neither key undoes anyth i nql they merely 
give a mechanism for killing commands without killing the 
program. 

E. LIMITATIONS 

There are two types of limitations to Edf. First, there 
are "nice to nave" type commands such as folding character 
pictures, italicizing fonts, and producing bold fonts which 
were not included aue to time constraints but which could 
easily be added in the future. Second, Edf has not had a 
thorough testing. There are many checks throughout the pro- 
gram which were incluoed to detect bad font files and to 
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prevent the program from abnormal termination. Edf is good 
at screening commanas and at flaaqing bad ones. Although 
possible to string some commands together on one command 
line» some combinations are bound to produce strange 
results. The user should combine commands only as described 
in the preceding section. Despite its limitations/ Edf is an 
extremely useful tool. 



6 1 



IV. TYPESETTING TOOLS 



The user's manual [Ref. 7) provides detailed instruc- 
tions on the use of the two typesetting tools described in 
this. chapter. 

A. PRFONT 

1 . Design 

Prfont was designed as a final test of a digitized 
font. If a font/ when displayed by Prfont/ appears ragged/ 
then it is not yet satisfactory for use in typesetting. 
Prfont displays an entire font/ settina characters on hor- 
izontal lines in their collatina sequence. To do this/ 
Prfont reads in the header table and font dimensions from 
the font file/ checking for invalid font dimensions. First/ 
using the Versatec simultaneous printer/plotter mode/ the 
font name is centered above where the font will be 
displayeo. Prfont then runs through the header table ac- 
quiring enouqh characters for a row. Once a row has been 
filled/ Prfont fills plot buffers with the digitized pic- 
tures of the collected characters. Plot buffers/ once 
filled/ are sent to the Versatec one at a time. Once a 
number of olot buffers eaual to the height of the font have 
been sent/ the line of character pictures is complete/ and 
one line of characters has been set. Prfont then plots 5 



62 



blank Dlot lines to provide character line spacing. Before 
continuing, the program frees the allocated memory (from 
A 1 1 oc ( 1 1 ) ) that it accui red to hold the character defini- 
tions awaiting olottino. Prfont frees this memory in the 
reverse order in which it was requested. This reverse order 
of freeing is important. During the testing of Prfont, cer- 
tain sequences of memory allocations, if not freed in re- 
verse order, caused an abnormal proqram termination when the 
program was later reauesting additional memory (in the sys- 
tem routine Alloc(II)). This problem became much more com- 
plex in Signmkr where certain characters were used several 
times on a line. Prfont then gets another row of charac- 
ters, continuing the process until all characters in the 
font have been displayed. In setting character pictures, 
Prfont sets all the. bytes used to store the bit picture. 
For example, if a character has a raster width of 17, then 3 
bytes(2^ bits) are set in the plot buffer, as opposed to the 
settino of the first 17 bits alone. Setting pictures by 
bytes as opposed to bits greatly speeds the Process of fil- 
ling Plot buffers while producing the same character pic- 
tures . 

2 . Features 

Prfont takes multiple arguments, either font names 
or full pathnames. Prfont ensures a one and one half inch 
margin at the top of the page and one inch margins else- 
where. Furthermore, Prfont looks ahead to ensure that the 
next font to be displayed will fit on the current page. 
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causinq a page eject it sufficient room does not exist. 
Prfont also takes an optional numeric argument. This argu- 
ment must be the the first argument and must be preceded by 
a " - " . The argument » any number from 1 to 2 b 4 , resets the 
width of the display field in plot bytes. Often, in an ex- 
tremely large font or on days when UNIX is servicing many 
users, Alloc(II) will be unable to provide the memory re- 
quired to hold the character definitions awaiting plotting. 
If this situation occurs, the program exits, aisolaying a 
message to rerun with a narrower display field. Such a field 
would hold fewer characters and, therefore, require less 
memory. The default pagewidth, or display area, is 216 plot 
bytes. 

8. SIGN M K P 

1 . Design 

As the thesis objectives requiring the modifications 
of Froff and Vts were not attained, this author desired some 
means, however limitec, of setting text with the adapted 
fonts. With that objective in mind, Signmkr was designed. 
Signmkr reads lines from a text file interspersed with a 
limited set of text processing commands and sets the text, 
according to the commands, in the selected fonts. Briefly, 
the design includes Doth text processing and typesetting 
functions. The program is a novelty; it is more suited to 
making signs than for producing documents. 
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Signmkr loads a default font, S A I L 1 0 , and commences 
to read characters into a text buffer until a ' \ n 1 is en- 
countered. Further described in the command listings in the 
following section, there is an escape mechanism to provide 
breakpoints at which certain text processing and typesetting 
tasks are performed, e . g . , loading a new font, centering a 
line of text, soeci fying a character code for a printable 
SAIL character in an ASCII control character Position, etc. 
Characters are transferred one dv one from the text buffer 
to a print buffer. During this transfer a plot width is 
maintained and escaoe options handled. Cnee a 1 \n 1 has 
been found in the text buffer or the plot width of the print 
buffer exceeds the pacewidth ( the concept of pagewidth is 
the same as that in Prfont) , transferring stops, and charac- 
ters in the print buffer are exoanaea into multiple plot 
buffers by the insertion of their digitized pictures. 
Again, the plot buffers are sent to the Versatec one by one; 
however, in Signmkr, digitized pictures are set bit by bit 
as opposed to Prfont ’s byte by byte picture setting, and 
pagewiath is measured in bits as opposed to bytes. The 
overhead involved in extracting the bits from the bytes 
storing a raster line, has been minimized. Only one pro- 
cedure call is required to obtain the next bit in a raster 
line. 

If a user has placed a character in a file and if 
the characters are oeina set in a font in which that partic- 
ular character is undefined, Signmkr will automatical ly in- 
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se r t 



If the font 



the olank ( 0 a 0 ) character in its olace. 
has no blank character, Siqnmkr exits. whenever Siqnmkr 
cannot handle requests, it disclays diagnostics and the line 
be i ncj orocessed before e x i t i n a . 



Example: this source 



produces this. 



caaaaanaaaaao caaaaanaaaaao 

-v tt ** U a^aaaaa-*^ B ~ NIL ~ 
XaafSaaVaaaaaS XaaaaaYaaaaaS 

~ caaaaanaaaaao 
Xa— A - NIL - 
XaaaaaYaaaaat 




Fiqure 12 



<? . Features 

Fiaures 12 ana 13 are examoles of Sianmkr’s caoabil- 
ities, and, in fact, ficure 13 is an excellent Description 
of Signer in itself. Some of the fiqures in this thesis 
and most of the f inure titles were set by Signmkr. 
various commands to Siqnmkr are summarized below. "ESC" is 
the ASCII escaoe character (033). 

a) ESCc < one line of text > 

The "center" command centers one and only one line 
of text, and that line is the line immediately following the 



command. The user must use this command tor each line to be 



centered. If a line is too long to be centered* 
Siqnmkr will inform the user of this fact and ignore 
1 i ne. 



b) ESCf<*ontname> 



This command allows the user to change the font 
inq used for typesetting; it must be used only at the 
of a line or on a line by itself. Full oathnames are 
ceotaple. A blank must not be left between the command 
the new font name. 

c ) ESCoa\n 

This is the "caaebreek" command and is similar 
the ".bo" command used in nROFF. It sends a form-feed 
nal to the Versatec. The command should be used on a 
b v itself. 
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then 

the 



be- 
head 
a c - 
and 



t o 
sia- 
1 i ne 



d) ESCpoXn 



The ” beg in oaragraoh" comrrand indents the text line 
for paragraohino. The size of the indent is determined by 
the size of the current font. Like the "paqeDreak n command/ 
it should be on a line by itself. 



e) ESCs<number> 



The u space” command inserts blank lines within the 
text. The height cf the blank line is eaual to the font 
height. A blank must not be left between the command ana 
the number. The number may be octal (leading 0) or decimal. 



f) ESCo<number> 



This command soecifies a character by its character 
code within the current font. The commana may be used at 
any ooint within a line/ but it must not contain blanks. 
This commana is useful in accessing a character from a SAIL 
font whose character code corresronos to a control character 
in ASCII. Numbers may be octal (leading 0) or decimal. 
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Users with orevious experience with text processing 



programs should have no trouble in adapting to Sionmkr. 
However* caution should be exercised when usina the "ESCod" 
(paregrach) and "ESCf" (cnanae fonts) commands at the same 
point in the input file. The two seauences of input lines 



(a) ESCf B0R8 
ESCpoNn 
ESCf HTR30\n 



(b) ESCf BDRfl 

ESCf HTPSONn 
ESCoo\n 
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V 



CONCLUSIONS 



A . ATTAINMENT OF THESIS OBJECTIVES 

In retrospect# the thesis effort may be divided into 
three main areas: 

1. Data 6ase of Digitized Fonts 

First# a data base of dioitized fonts for a 16-bit 
environment was created. This accomplishment encomoassed 
the first two thesis objectives listed in the Introduction/ 
the design of a UNIX comoatible font file format and the 
conversion of the thirty-four SAIL fonts to this format. 
This effort began in early February/ 1977 and was completed 
in late March. Considerable time was spent in designing and 
programming Listfont. Listfont orovided for the processing 
of the raw data/ tne Stanford font files on tape. After 
designing and programing Listfont/ this author was thorough- 
ly familiar with the concents involved in storing digitized 
character definitions and was aware of several errors in the 
existing font files. This awareness was invaluable in 
desianina a compact font file format for use under UNIX and 
in designino Transfile/ the program to correct errors while 
transforming SAIL fonts to the NPS format. The resulting 
files represent a var ietv of different software type for use 
in computer typesetting. 



2 . Software Tool Development 



The second area of the thesis effort consisted of 
completing thesis objectives three through six: the redesign 
of E d f to edit and create fixed and variable width fonts, 
the design of Prfont to display fonts, and the design of 
Signmkr to set text in the digitized fonts* None of the 
many proolems encountered in program design required the 
modification of the font file format initially designed. 
The file desian was such that character pictures were easily 
accessible, and programs could often use routines from pre- 
viously designed programs with only minor tailoring. 

3 • Documen t at i on 

The third and final phase of the thesis effort was 
the documentation. First, a user’s manual was written (co- 
authored) (Refs. 5 ana 73. The manual was designed for a 
student with moderate experience with UNIX, no experience in 
computer tyoesett i na, and a desire to pursue further 
development of computer typesetting under UNIX. Second, the 
thesis documents the total effort, focusing mainly on pro- 
gram desian. During this final phase, the author came to 
several conclusions concerning computer typesetting under 
UNIX and computer typesetting in general. In the former 
case, there is great potential for experimentation in the 
design of a software oriented computer typesetting environ- 
ment, a software environment which could conceivably be 
modified to function on different computer systems using 
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different Drinting devices. In the latter case, there is 
great potential in printing-related industries for increased 
profits and lower machine maintenance costs. 

B. COMPUTER TYPESETTING UNDER UNIX 



Although all 


of the programs could 


be improved, 


as 


i s 


di scussed 


later. 


the system software 


is efficient, 


and 


the 


a 1 go r l trims 


could 


be reproarammed to 


adapt the system 


t o 



another computer or, under UNIX, to drive a higher speed 
plotting device. To gain some appreciation for the time re- 
quired to set tyoe under the present system, "THE QUICK, 
BROWN FOX JUMPED OVER THE LAZY WHITE DOG." was set in in- 
creasing font sizes. The timed results are displayed in 
Table 3 . 



73 



FONT 


real 


SYSTEM 


INPUT/ 


BDJ8 


18.0 


0.5 


2.8 


BDR1 0 


28.0 


0.5 


3.0 


SAI110 


27.0 


0 . 8 


2.7 


6DR15 


27.0 


1.5 


3.6 


SIGN22 


35.0 


3.2 


3.8 


BDR25 


34.0 


2.6 


4.6 


SIGN41 


44.0 


10.6 


5.6 


Times are 


in seconds. 







Table 3 



By examining Table 3 * two conclusions are obvious. First* 
system and inout/outcut times are dependent on font height. 
Secondly* given the above times for the setting of one sen- 
tence* the production of large documents would be unreason- 
able. Slow typesetting times are caused by the low plot 
speed of the Versatec* and the constant demands on the 
PDP-11* s unibus design which services all users and peri- 
pheral devices. Figure 21 of Appendix A required 32.5 
seconds of system time and 26.6 seconds of input/output 
time. In summary* UNIX has provided an excellent environ- 
ment for the design of a system of programs to effect corn- 
outer typesetting; however* UNIX is by no means prepared to 
oroviae the environment needed to continuously operate such 



a system 



C. FUTURE MODIFICATIONS 



The results of this thesis and the efforts documented in 
reference 5 are that UNIX now posseses a large data base of 
fixed and variable width fonts and three significant tools 
for further development of the system. Troff and V t s have 
not been modified, ana, until they are, computer typesetting 
under UNIX lacks its potential capability. Consioering that 
the ore-thesis system configuration still exists for the 
original four fonts, the exoanded font library and improved 
tools reoresent a significant enhancement. This author 
recommends that futher development to enrich the system be 
conducted in the following areas: 

1 . Troff 

Modify Troff to orocess text files to be set in any 
of the fonts in the oresent library. The major effort in 
this area is the design of a scheme for Troff to compute 
character widths from a font name and height. Troff should 
produce a file to be processed by the virtual typesetter, 
V t s . 

2. Vts 

Modify Vts to set fixed ana variaole width fonts 
stored in the NPS font file format. 
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3. Software Tools 



Although useful in their present forms/ additional 
options could be addec to Edf and Signmkr. First/ the capa- 
bilities of producing italicized and bold fonts in Edf from 
a roman font would be a significant improvement. Second/ 
although its place in the computer typesetting system will 
always remain that of a novelty/ some additional text for- 
matting options in Signmkr would make it a more useful tool. 
Both Prfont and Signmkr can be made to execute more rapidly 
by filling and sending groups of clot buffers to the Versa* 
tec as opposed to the present design of transmitting plot 
buffers one at a time/ and/ in all three programs/ the 
number of disk reads for each character definition access 
could be reduced from five to two. Presently/ the complete 
character definition is accessed by seeking to and reading 
the raster width; three subsequent "reads" obtain the left 
kern/ rft/ and drc/ respectively. After some computations/ 
the entire bit picture can then be read into program memory 
(the fifth "reaa"). Instead/ by seeking to the definition 
and readina all four dimensions (8 bytes) into a buffer/ the 
bit picture can be read into croqram memory/ after some com- 
putations/ in a second "read". Thus/ the number of "reads" 
per character access is cut from 5 to 2 . 

4 . Ke rn i na 

The concept of kerning should not be implemented un- 
til Troff and Vts have been fully integrated into the fixed 
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and variable width font environment. When implemented/ con- 
sideration should be given to either modifying Edf or creat- 
ing a separate program to provide the ability to display 
pairs of characters with the kerning effect. 

5. Plot Capability 

As a final enhancement/ both Troff and Vts should be 
modified to process textual and graphical information from 
the same file*, allowing for limited graphical displays in a 
orimari 1 v textual document. This modification demands effi- 
cient use of memorv as the Versatec cannot reverse paper 
movement/ and Vts must be able to store information in 
"looking ahead" to complete araphical displays. The need 
for computer typesetting systems to handle both graphical 
and textual data is well documented and such systems provide 
great versatility over others where the two types must be 
treated separately. For example/ as early as 1963/ the U.S. 
Government Printing Office issued a reauest for a typeset- 
ting system based on pho t ocomoos i t i on . One of the require- 
ments was an ability to handle randomly occurring graphic 
formats in text documents [Ref. 19], 
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APPENDIX A FONT DESCRIPTIONS 



The SAIL fonts are displayed on the following oaaes. 
The displays were produced by Prfont and are in the same 
order as the listina in Table 1 of Chapter 1. The final 
page of the appendix was set by Signmkr and is included to 
illustrate the contrast amonq the fonts. A comparision of 
the SAIL fonts displayed on the following pages and those 
displays in reference 12 reveal added characters in the NPS 
versions. The additions were made at Stanford after the 
publication of reference 12. The additional characters have 
not oeen removed. 
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Figure 20 
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WHAT IS WRITTEN 





APPENDIX 8 PROGRAM LISTINGS 



This aooendi x contains the program listings/ the source 
codes/ for the programs described in the body of the thesis. 
Each listing is preceded by a one page description to avoid 
having to refer to various chanters for general informa- 
tion. One of the advantages of the program language C [Ref. 
10) is that/ while not self-documenting/ it has constructs 
which are very descriptive; however/ where necessary/ com- 
ments have oeen added. Subroutines within programs are gen- 
erally listed in a standard manner. "Main" appears first and 
is followed by subroutines in order of decreasing prom- 
inence. 
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LIST FONT 12 May 1977 LISTFONT 

DESCRIPTION 



listfont [-1] <filename> 



Listfont process a font file of the Stanford format. It 
examines the heaoer table* the font dimensions* and the 
ASCII descriotion. In doing so* Listfont ignores wasted 
high order bits and interprets 18-bit PDP-10 halfwords 
as 16-bit PDP-11 full words. The font dimensions and 
descriotion are displayed on the CRT screen. Listfont 
then processes each character definition, detecting and 
flagging di sc reoanc i es in character dimensions or char- 
acter picture storage. An optional " - 1 " argument 
displays character dimensions and pictures to the CRT 
screen. 



FILES 



<filename> must be a Stanford formatted file which has 
been read into a UNIX file. 
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listfont 



LISTFONT 



LISTFONT 



^define OK i f ( o r i n t f 1 ag ) 

//controls optional char dimension/picture listing 

float byte/ 

int cha r w 1 1 28] ; 

i n t c add r [128] / 

int *y r * z ? 

char t e x t bu f [980] , hbuflo]; 

int b i tpt r , b / f p , b 1 e f t i 

int printflaa 0; 

int unused 0? 

int r a f 0 ; 

int 1 k f 0 ; 

char * d T 

ma i n ( a rgc , a rg v ) 

int argc; char * * a r a v / ( 

int i t \ 't 

if (--argc == 0) ( 

pri nt f ("PARAMETERS ?”)? 
e x i t ( ) ; 

> 

if ( a r g v T 1 ) ( 0 J == '-') (// turn on orintflag 

p r i n t f 1 aq = 1 ? 
fp = OPEN (arav [2] , 0) ; 

] 

else fp - OPEN (arav (11,0); 
otrb1k( ); //get hdr table 
charblk( ); //get font dimensions 
fontolk( ); //get font ascii description 
UK o r i n t f ( " 3 . Character Definitions:\n"); 

OK oblnkln(2); 
j = 128 - unused/ 

//process the 'j' characters in the font 
f o r ( i =0 ; i < j ; i+ + ) 
chardefsf )/ 
pb 1 n k 1 n ( 1 ) ; 

//report kern i no or dimension errors 

if(raf)printf(" Raster widths 1= char widths. ..Xd\n"»raf)? 
else p r i n t f ( " Raster width - char widths all equal \n") J 
if (lief) print f(" Kerning occurs %d times\n"/lkf); 

//raf should equal lkf 

else print f ("No nonzero left kerns\n"); 

//if this doesn't agree with a 'Is -1 filename' 

//then there are extraneous bytes present 
p r i n t f ( " Total bytes processed 1 %f\n",bytc + l.)/ 

CLOSE ( fo) ? 



Ptrb1k( ) (//go thru hdr taoler count chars in font 

int i ; 
byte = - 1 . ; 
y - charwl z = cadcr; 
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for( i i < 1 2 8 ; i + + ) { 

* y + + = ge t h w ( ); 

* z + + = oe t hw ( ); 

> 

for(i = 0?i<128;i++) if (charw [i ] == 0) unused + t ; 



int gethw( ) { / / 3 PDP-10 bytes to 2 PDP-11 bytes 

i n t c / t / 

READ( fp,&c, 1 ) ; 

RE AD ( fp, &c , 1 ) ; 

RE AD ( f p , & t / 1 ) ? 
byte =+ 3.; 

return! (c << 6) ! t )/ 



by t es ( x ) 

int x; {//trash x bytes and bumo up counter 
int i / t ; 

f or ( i =1 ; i <=x ; i t+ ) { 

RE AD ( f o / 4 1 , 1 ) ; 
byte =+ 1 . ; 

> 



pb 1 n k 1 n ( x ) 

int x; {//print x blank lines 
int i ? 

for ({=1; i < = x ; i++) 

putchar ( ' \n 1 ) ? 

> 

pb 1 n k ( x ) 

int x ; {//print x blanks 
int i ; 

f o r ( i = 1 ? i < = x ; i + + ) 
putchar( ' '); 

> 

charplkt ) {//print font dimensions 

p r i n t f ( " 1 . Characteristics:^")? 
pb 1 n k 1 n ( 2 ) ? 
by t e s ( 9 ) ? 

p r i n t f ( " Overall heiaht of font (pixels) 

get hw ( ) ) ; 
by t es ( 3 ) ; 

p r i n t f ( " width of widest character 1 

get hw ( ) ) ; 

by t es ( i ) ? 

p r i n t f ( " Logical height above b a s e 1 i n e = 

get hw ( ) ) ? 

bvtesf 168) ; 
pb 1 n k 1 n ( a ) ; 



= % d \ n " , 

%d\n M , 
% d \ n " , 
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fontblk( ) {//print fcnt ascii description 



i n t i f n ; 

Char c / 

n = bleft = b = 0; 
b i t Pt r = 2 ; 

while ( C c = nextchar( )) != 0) 

textbuf[n + + ] = c ; 

printf("2. Font DescriptiontNn"); 
p b 1 n k 1 n ( 3 ) ; 

for(i=0; i<n; i+ + ) putchar ( t ex tbuf l i ] ) /' 
pb 1 n k 1 n ( 1 ) ; 
by t es ( 576 - b); 



char nextchar( ) {//get next char in ascii description 

char temp ; 
i n t i $ j ! 
t errc Or 

f o r ( i =0 ; i < 7; i+t) { 

if (bitptr - - 2 && bleft == 0) { 

d - hbu f / 

RE AD ( f p , hbu f / 6 ) ; 
byte = + 6 . ; 
bleft - 6 ; 
b - + 6 ; 

} 

switch (bitptr) { 



case 


2: 


temp 


r 


temp 


1 

1 


( *d 


& 


oao) 


>> 


5; 


break ; 


case 


3: 


temp 




temp 


1 

1 


( *d 


4 


020 ) 


>> 


a; 


break! 


case 


a : 


temp 


- 


temp 


1 

1 


( *d 


& 


010) 


> > 


3; 


b r eak ; 


case 


5: 


temp 


- 


temp 


1 

1 


( *d 




004 ) 


> > 


2; 


break; 


case 


6 : 


temp 


r 


temp 


f 

1 


( *d 


* 


002 ) 


> > 


l ; 


break; 


case 


7: 


temp 


— 


temp 


1 

1 


( *d 


& 


ooi ) ; 


break 





default: printf(”bitptr= %d\n"#bitptr); 
e x i t ( ) ; 

} 

if ( i <6 ) t emr> =< < 1 ; 

if ( + + oitptr > 7 !! (bleft == 1 && (bitptr-1) == 6)) { 

bitotr = 2 ; 
bleft = - 1 ; 
d + + ? 

> 

} 

return( temp ); 



chardefs( ) {//process one character definition 

char i/OC/tP/l,t/rft; 
int defcjdrc»rwf rk; 
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RE AD ( fp, &to, 1 ) 7 
to = tp << 3; 

READ( fp, &oc , 1 ) 7 

rw = tp ! ((oc & 070) >> 3); 

READ( fp, &t , 1 ) ; 

byte =+ 3.? 

oc = (oc << b) ! t ; 

UK printf ("Octal c o d e = " ) 7 

if ( oc <8 ) OK ori nt f ( "00" ) 7 
else if ( oc<69 ) OK pu t c h a r ( ' 0 ' ) 7 
OK printf("%o",oc)7 
OK ob 1 n k ( 1 6 ) ; 
defc = aethw( ) -2 7 

if (defc < = 0) (//stop here, there is no oicture 
OK pr i nt f ("NONPRINTABLEW ) 7 
OK pb 1 nk 1 n (2) 7 
by t es ( 6 ) 7 
return) 

> 

OK print f(" Character widths %d\n", charw iocl ) 
rw = ( rw = = 0) ? charwtocl ' rw» 

//rw != cw -> better be kerning 
if (rw 1= charw loci) r a f +■ + ; 

OK printf ( "Raster widths X d " , r w ) ; 

OK pb 1 n k ( 1 5 ) ; 

READ ( f p , & 1 , 1 ) ; 

1 s (1 << 3); 

RE AD ( f p , 4 r f t , 1 ) ; 

1 = 1 J ( ( r f t & 07 0 ) >> 3); 

READ(fp,&t , 1 ) ,* 
rft=( rft<<6) ; t; 

byte = + 3.; 

OK printf("Left kerns %d\n", 1); 

rk = rw - (charwtocl + 1)7 
//all dimensions better jive 
if (rk < 0) OK printf ("FILERROR - "); 

OK orintf("Riaht kern= % d " , r k ) 7 

if (rk !! 1) lkf++7 

OK ob 1 n k ( 1 7 ) 7 

OK orint f ( "Rows from too= %d\n", r f t ) 7 
dre - ge t hw ( ) 7 

OK orintf("Data row count: %d", orc)7 

OK pblnk(lfe); 

OK printf("defc= %c\n",defc)7 
//now walk thru picture definition 
rastrln(defc ,drc, rw) 7 
OK pblnkln(2)7 



rastrln(defc,orc,rw) 

int oefc,drc,rw7 {//process char picture definition 

int i , j , 1 , num r w , m 7 

char 1 7 

int b u f 1 9 0 J 7 

i nt pbu f (27 01 7 
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i n t *o,*q,*n; 

UK oblnkln(l); 

//how many PDP-10 bytes per raster line? 
1 = (Crw-l)/36 t 1)*6; 

//how many raster lines each 6 bytes? 
m = (1 - - 6) ? 3 6 / r w : 1? 

while(drc) {//wnile data rows are left 
d = b u f ; 

f o r ( i = 0 ; i < 1 ; i + + ) { 

READ ( f p / &t / 1 ) ; 
byte = + 1 . ; 

*p + + = ( ( t & 070) >> 3) J 
*p + + = (t & 07); 

} 

q = n = obuf; 
o = bu f ; 

f o r ( i = 0 ; i < 2 * 1 ; i+ + ) { 

*q+t = f ( p ) ; 

* q + + = s ( p ) ; 

*q+t = td(o++) ; 

} ' 

numrw = (dre < m) ? dre t m; 
for(i=0; i < numrw; i + + ) { 

for( j=0; j < rw; j++) 

OK list(n++)/ 

OK printf("\n"); 

} 

dre = - numrw; 
defc - ~ 1/6; 

//trash any extraneous bytes 
bytes(defc*6); 



l i s t ( n ) 

int *n; {//use f ( p ) , s ( d ) / t d ( o ) to list picture 
if (*n == 0) p r i n t f ( " "); 

else printf("l"); 



int f ( p ) 

int *P J { 

switch (*o) { 

case 0: case 1; case 2 : case 3: 
re t u r n ( 0 ) ; 

case 4: case 5: case 6; case 7: 
r e t u r n ( 1 ) ; 

default: print f ("helo") * 

} 

> 
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int s ( p ) 
int * o ; 



{ 



switch (*d) 



{ 



case 0: case It case 
return(O); 

case 2: case 3: case 6: 
return ( 1 ) ? 

default: Drintf("helol 

} 

} 

i n t t d ( p ) 

i nt *p? { 

switch (*p) { 

case 0: case 2: case U : 
return(O ) ! 

case 1: case 3: case 5: 
returnd ) » 

default: print f(" Help2 



} 



> 



case 5 

case 7 
) ; 



case fe 

case 7 
) ? 






transfile 



12 May 1977 



TRANSFILE 



DESCRIPTION 



transfile <sf> <nf> <sf> <nf> ... <sf> <nf> 



Transfile takes pairs of arguments. It transforms the 
first argument of a pair, a Stanford font file# to a 
font file of the NPS format with the name of the second 
argument of the pair. Transfile exits if given an odd 
number of arguments or a nonexistent file. Transfile 
detects and corrects dimensioning errors# removes unused 
bytes# and displays the transformed file's size before 
nrecedi na to the next pair of arguments or exiting. 



FILES 



<sf> must be a Stanford formatted file. 

<nf> will be shortened to lenqth zero if it already ex- 
ists. 
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transfile 



TRANSFILE 



TRANSFILE 



//define READ WRITE 0 0 b b b //access mode for transformed file 

int f p r / f p w ; 

int notused Or 

char *bytc; //byte counter 

int dead; 

char i bu f [25b J ; 

char t buf 1251 ; 

char obu f [ 25) ; 

int obu f [25b] ; 

int big, bike; 

int flag; 

int charwptr[25bl; 

char *o ; 

int b i t p t r ; 

char text buf [480]; 

char * d ; 

int g , b 1 e f t ; 

/ * transform font files from the Stanford format to 
the NPS format; correct errors as detected */ 

main(argc,argv) 
int a rgc ; 
char * * a r q v ; ( 

int i # k , j , fileptr; 
put c ha r ( ' \n * ) ; 

print f("\nTransform files by pai r. . ,\n" ) ; 
pri nt f ("FILES: "); 

for(i = l;i<arqc;i++) printf("%s " , a r q v { i 1 ) ; 

putchar ( ' \n ' ) ; 

fileptr = 1 ; 

if ( ( a rqc ) %2 1= 1) 

pri nt f (Incorrect number of arguments'^"); 

/* by pai rs» transform the 1st arquinent (Stanford file) 
to the 2nd a rqurrent (NPS file) 

continue until oai rs of args are exhausted * / 

else while (a rqc) { 

big = 0; byte - 0; bike - 0; 

if ( emo r ( ( o = a rgv ( f i 1 eo t r 1 ) , ( d = " s i gn 1 1 4 " ) ) ) big = l; 

//set ’big' for the bid file 

fpr = open ( a rgv ( f i 1 eot r + + ], 0 ) ; 

fpw = creat (argv [f i 1 ept r + + ] » READ WRITE); 

for(i=0; i < 25b; i++) 

, obu f ( i ) = 0 ; 

write(fpw,obuf/512); //write blank hdr table 
bump (512); //set the byte counter 
for(i=0; i < 25b; i++) { 

charwotr(i) = getval ( ); 

if (charwotrli) == 0) notused =+ 1; 

> 
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k i 1 I ( 9 ) ; dead = putsaveC ) / 
kill(3); dead = outsaveC ); 
kill(3); dead = outsaveC )» 
ki 11 (168) ; 

fontblkC ); //get ascii description 

k = o; 

for(j=0;textbuflj] ! = ' N 0 ' ; j + + ) 

for(i=j/(textbufCil=argv(fileptr-l] t k ] ) 1= ' N 0 ' ; i + + ) 

k + + ; 

//write ascii description 
f or ( i =0 ; t ex tbu f ( i ) i='\0';i++) { 

putcharCtextbuf (iJ ) / 
write(fow/&textbuf(il / 1 ) / 
bumoC 1 ) 

} 

write! fpw, Jtextbuf li I / 1 ) / 

bump ( 1 ) ; 

putcharC ' \n ' ); 

dead = 128 - notused/2; 

//process chars in font 
for(i=0; i < dean; i+ + ) 
chardef ( ); 

//go back to head of file 
seek(fpw/0/0); 

f o r ( i =0 ; i < 256; i + + ) 

obuftil = charwotrtij; 

//write out the hdr table 
wri te( fpw,obuf/512) ! 

/* close files/ write out byte count (this snould 
agree with a 'Is - 1 ' on transformed file)/ dec- 
rement the argument counter by a pair (2) */ 

close(for); 
c 1 ose ( f pw ) ; 

if(biq)printf("Size of % s . . . V, d blocks + %d bytesNn"/ 

a rgv ( f i 1 eo t r - 1 1 / b I kc / by t c ) / 

else printf("Size of %s...%d bytesNn ",argv(fileptr-l]/ 
byte) ; 

ou t c h a r ( ' \n ' ) ; cut c h a r ( ' \n ' ) ; 
arge =• 2; 

} 

> 

int cmor(pl/p2) 

char *pl , * d 2; { //rtn 1 if lo=p2/ 0 otherwise 

f o r ( ; ; ) { 

if(*ol 1= *p2 + + ) re t u r n ( 0 ) ; 
if(*pl++ = = 1 NO 1 ) returnt 1 ) ; 

} 

1 

bump ( i ) 

int i; ( //bump blk/byte counts by i as reauired 
if (big) < 

if (byte+i >=512) ( 
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if (bike <255) { 

b 1 k c + + ; 

byte = ( b y t c + i ) %5 1 2 ; 

} 

else if (byte+i > 65535) { 

printf("fi1e too big")? exit(); 

} 

else byte =+ i ; 

> 

else byte =+ i ; 

> 

else byte =+ i ; 

> 



int getvalC ) ( //5 bytes 

read ( f pr , i bu f / 3 ) ; 
obu f 1 0 ] = (( ibuftOl & 

( ( ibuf m 4 
( ibuf (2 J 4 
return (obuf [0] ) ; 

} 



to 2 

017) << 12) 
077) << 6) 
077 ) ; 



I 

I 



int outsavet ) { //3 to 2 and write them 

read(fpr,ibuf/3); 

obuftOJ = (( ibuf 101 a 017) << 12) 1 
( ( ibuf (1) & 077) << 6) ! 

( ibuf C21 4 077) ; 

wri te(fpwrobuf/2 ) > 
bump ( 2 ) ; 

return(obuf (0) ); 



ki 1 1 (x ) 

int x; { //trash x bytes 
read(fpr/ibuf/x); 

} 



int worflet ) { / / r t n the number of 6 bvte words 

//to the character oicture 
read ( f p r / i bu f » 3 ) ; 

obuf ( 0 J = (( ibuftOl & 017) << 12) ! 

( ( ibuf 111 4 077 ) << 6) ! 

( ibuf (21 & 077 ) ; 

obuflO] = - 2; 
returntobuf (0) ); 

} 



int retrw(){ //get rw ( write rw, emor rw to cw 

//if rw 1= c w , set flaq to check lk 

f 1 aa - 0 ; 

read ( f p r , i bu f » 3 ) ; 

obuf (01 = (( ibuf (01 4077 ) << 3) ! ((ibufU) & 070 ) >> 3); 

obuf 11) = (( ibuf ( 1 ) 4 0 7) << 6) | ( ibuf(21 4 077 ); 

obuflO] = (obuftOJ == 0) ? c ha rwp t r (2 *obu f [ 1 3 ) : obuftO] 

c h a r wo t r [ 2 * obu f ( 1 1 + 1] = byte; 
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if (big) charwptr(2*obuf(l]l =! (bike << 8 ) ; 
if (obuftOJ 1= (charwpt r [2*obuf 1 1 1 1 & 0377)) flag++; 

wri te(fow/obuf >2); 
bumo ( 2 ) 5 

return(obuf (01 ) ; 



split( ) ( //get» write out Ik and rft 

i n t t /* 

read ( f p r , i ou f r 3 ) ; 

obu f ( 0] = ((ibuf(0]&077) << 3) ! ((ibuftl1&070) >> 3); 

obufllJ = (( ibuflll & 07) << 6) ! ( i b u f 1 2 J & 077); 

//correct any errors 

if (Iflag) obu f [ 0] = 0; 

wri te(fowrobuf»4); 

bump ( 4 ) ; 

} 



char next(x) 

int x ; ( / / r t n value of next x bits to oak 

char temp; 
int i ; 
t emo = & 0 ; 

f o r ( i = 0 » i < x; i++) { 

switch (bitptr) { 



case 


0: 


temp 


= 


temo 


( *p 


8 . 


0200) 


> > 


7 


break ; 


case 


1 : 


temp 


r 


temp 


( *o 


a 


0100) 


> > 


fa 


break; 


case 


2: 


t emp 


r 


temp 


( *p 


& 


oao) 


> > 


5 


break ; 


case 


3: 


temp 


- 


temp 


( *p 


& 


020 ) 


> > 


a 


break ; 


case 


a : 


temp 


— 


temp 


( *p 


K 


010) 


> > 


3 


break ; 


case 


5: 


t emo 


= 


temp 


( * o 


Z 


ooa) 


> > 


2 


break; 


case 


fa: 


temp 


— 


temp 


( *P 


& 


002) 


> > 


1 


break ; 


case 


7: 


temp 


- 


temp 


( *p 


% 


0 0 1); 


break ; 



default: c r i n t f ( " b i t o t r = %d\n " » b i t p t r ) ; 
exi t ( ) ; 



} 

if ( (i+1) != x ) temp =<< l; 

if (++bitctr > 7) { 

b i tot r = 0 ; 

p + + ; 

} 

> 

if (i < 8 ) temp =<< (8 - i); 

return( temp 8- 000377 ); 



oa k ( x ) 



int x ; { 

int i ; 


//oak 1 raster 


line in^o int array 


f o r ( i = 0 ; 


i < 25; i + + ) 




obu-f ( i 

i = o; 


1 =& o; 




while ( x ) 


< 
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Pbufli-M-] = next ( (x >= 8) ? 8 : x); 

x=( x >=8)?x-8:0; 

> 

} 

comp r s ( x ) 

int x; { //cmos int array into bits 

i n t k / b i t s 1 ; 

char * i » * t ; 

t = tbuf ; i - ibuf; 

for(k = 0;k<25;k + +) * t + + = 8, 0; 

t = tbuf; 

b i t s 1 = 8 ; 

while ( x ) { 

switch (bitsl) { 



case 


2 : 


★ t = 


* t 


j 


( * 1 


& 


080 ) >> 


a; 








t + + ; 
* t = 


*t 


1 

1 


( * i 


t + 


& 


0 17) 


<< 


4 ; 






x ; 


b i 


t s 1 


r 


a; 














break 


r 
















case 


4 : 


★ t = 


* t 


1 

1 


( * i 


8, 


074) >> 


2; 








t + + ? 
* t = 


* t 


1 


C*i 


+ + 


& 


003) 


< < 


o ; 






x -- ? 


b i 


t s 1 


r 


fe; 














break 


• 

9 
















case 


6 : 


rt * 
+ 

II 


* t 


1 


( * i 


+ + 


& 


0 7 7 ); 










x # 


b i 


t s 1 




8; 














b r ea k 


9 
















case 


8: 


*t = 




1 


( * i 


+ + 


& 


077 ) 


<< 


2; 






x ; 


bitsl 


z 


2; 











break; 

default: p r i n t f ( " b i t s 1 = %d\n", bitsl) 
ex i t ( ) ; 



> 

> 

} 

chardef( ) //process one char definition 
int i ; 

int rw! //raster width 

int count; //* wds in definition 

int rwperwd;//raster lines oer word 

r w = retrwO ; 

count = wordcl ) ; 

so 1 i t ( ) ; 

drc = put save ( ) ; 

while (drc) { //while data rows are left 
p - tbuf; 
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bitptr = 0; 
i f ( r w > 3o ) ( 

r ead ( f p r , i bu f /( rw / 36 + 1)*6); 

comprs((rw/36 + 1 ) * 6 ) ; 

pak (rw) ) 

w r i t e ( f nw r obu f , ( r w%8 == 0} ? rw/8 : rw/8 + 1); 
bump ( (rw%8 == 0) ? rw/8 : rw/8 + 1 ); 
drc =- 1 ? 

count rw/36 + 1; 

> 

else { 

read( f p r , i b u f r 6 ) ; 
c omo r s ( 6 ) ; 

rwperwd - (drc < 36/rw) ? drc : 36/rwJ 

for(i = 0? i < rwoerwd; i+ + ) { 

Da k ( r w ) ; 

write(fpw/pbuf/(rw%8 == 0) ? rw/8 : rw/8 + 1) 
bump( (rw%8 == 0) ? rw/8 : rw/8 + 1 ) ; 

} 

drc - - rwoerwd; 
count =- 1 ; 

> 

) 

//trash extraneous bytes 
k i 1 1 ( c oun t * 6 ) ; 



fontblk( ) { //get ascii description 

i n t i , n ; 
n - bleft - 0; 
g = o; 

Di tot r = 2 ; 

'while ( (textbuf (n + tj = nextcharC ) ) 1= 1 \ 0 1 ) 

/ 

k i I 1 ( 5 7 o - g); 



char nextcharC ) { //get next ascii char of descrip 

char temp; 
i n t i t j ; 
temp =& 0 ; 

f o r ( i = 0 ; i < 7; i + + ) { 

i f (bi tpt r == 2 && bleft = = 0) { 

d - i bu f ; 
read ( f p r , i bu f / 1> ) ) 
bleft = 6 ; 
g - + 6 ; 

} 

switch (bitptr) { 



case 


2: 


temD 


z 


temp 


i 

i 


( *d 


& 


040 ) 


> > 


5; 


break; 


case 


3: 


temo 


— 


temp 


i 

* 


( *d 




020 ) 


> > 


4 ; 


break; 


case 


a : 


temp 


= 


t emo 


i 

i 


( *d 




010) 


> > 


3; 


break; 


case 


5; 


temp 


- 


temp 


» 

i 


( *d 


& 


004 ) 


>> 


2; 


break; 


case 


6: 


temD 


z 


temp 


i 

i 


( *d 


& 


002) 


> > 


l ; 


break; 



1 0 1 



} 

i f 
i f 


case 7: temp = temp ! (*d & 001); break; 

default: p r i n t f ( "b i t P t r= %d\n " , b i t ot r ) ; 
e x i t ( ) ; 

( i < 6 ) temp =<< 1 ; 

(+ + bitptr > 7 ' ! (bleft == 1 & & (bitptr-1) == 6)) { 

bitPtr = 2; 
bleft =- 1 ; 
d + + ; 


} 

> 





returnt temp )» 

> 
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DESCRIPTION 



edf 


[-] [<Hfn>] I (-1 t<Hfn>] [<num>J J (<fn>] 



Edf is an interactive font editor which provides the ca- 
pability of creating and maintaining fonts. If qiven no 
arguments* Edf enters a create mode. A filename* if 
given is assumeo to be the name of a digitized font 
file* otherwise* a leading indicates that <Hfn> is a 
vector formatted font file that requires conversion to a 
diaitized form before the editing function may proceed. 
If a point size is not specified as an optional third 
argument* a vector formatted font will be digitized at a 
10 point size. The term "current character" (cc) is trie 
pointer to any character position in a font. The char- 
acter denoted by cc may or may not be in the character 
buffer at any specified time. A user's manual [Pef. 71 
gives a complete cescriot ion of Edf and its use. Brief- 
ly* the available commands are: 



<numoe r > 


set cc to <numhe r > 




increTent [decrement cc 


a 


add a character to the font at the cc 


c s e 


change lines s through e of the character at 
cc# prompting for each line 


d s e 


delete characters s through e from the font 


e s e 


edit lines s through e of the character at 
cc# oromptino for each line 


f 


turn on/off a switch displaying dimensions 
of the character at cc 


i s e f n 


include characters s through e from font fn 
fn must be compatible#* remembers fn 


1 s e 


list lines s throuah e of the character 
at c c 


n 


display the font deer ipt i on and a table 
reflecting the edit status of every character 
in the font 


o 


enter an interactive module to change any 
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f on t /c h a r ac t e r dimension or font description 



EOF 



EOF 



EDF 



q 



quit/ warn if changes have been made but not 
written out 



s 1 s 
r 
u 
d 



e 



shift lines s through e of the character at cc 
left/ right/ ud/ or down one pixel and list 
lines s through e 



w f n 



write out font to fn, then guit 



<rubout> kill any command being executed without 
<break> exiting the program 



Edf promots with the octal value of cc followed by a " > " 
and guest ions "?" any illegal commands. Commands to 
change cc may be prepended to any other command/ and the 
effect is to change cc and then execute the command. 
Additionally/ " f " may be prepended to any command, 
''lumbers mav be in decimal or octal (leading 0). 



FILES 



<fn> may be 
"/.fonts. 01/font/" 
Hershey fonts are 
"/. fonts. 01/HFONT" 



a full pathname; 

i s n reoended to it. 
placed in a temporary 



otherwi se/ 
Digitized 
file named 



EOF 



EOF 



EOF 



^define error return(l); 



i n t 


read f p > wr 


i n t 


d t s i z e ; 


i n t 


p i d ; 


i n t 


f reenode ; 


i n t 


infont; 


i n t 


w r f 1 ag / 


i n t 


w r ; 


i n t 


max; 


i n t 


ht/ maxw/ 


i n t 


bike; char 


i n t 


edit; 


i n t 


delete; 


i n t 


tht/ tmaxw 


i n t 


dim; 


i n t 


include; 


i n t 


r w / lk/ r f 


i n t 


bo t / bytes 


i n t 


s 9 e # 


i n t 


i n ; 


i n t 


c / peeke ; 


i n t 


first/ las 


i n t 


C hmod ; 


i n t 


*n / 


i n t 


sg 1 1 y [ 3 ) ; 


i n t 


savet ty; 


i n t 


onint r() /' 


i n t 


*c h a rde f / 



wri t e f d ; 



size 



1 ht ; 



t 1 h t 



drc / 



* P 



char cstat ; 
char aestEOj; 
cnar i b u f [ 3 6 ] ; 
char tbuf 140001 
i n t hdr [ 256 ] ; 
i nt f hdr [ 256 ] ; 
s t rue t node 



in 1 1 i s t 



on 

w i t hou t 



//file descriotors 
//Hershey font point 
//Ch i 1 d process i d 
//ptr to next free node 
//current, character 
//initially# 0. incremented 
//any chanqe to flag a quit 
//writing 

//flag to turn off displaying of 
//diagnostics during file writing 
//32677 used to denote base node 
//font dimensions 
//block#byte counters 
//set to 1 when in edit mode 
//flag in checkina for empty fontfiles 
//temp font dimensions 
//char dim diplay control switch 
//flag preventing access to llist 
//during an include command 
//character dimensions 
/ / 

//command arauments 

/ / 1 if current character definition is 
//in character buffer# 0 otherwise 
//characters on the command line 
//line ptrs in cnaracter buffer 
//I if char in buffer was modified 
//integer pointer 
/ / 0 , otherwise 
//buffer for gtty(II) 

//terminal status 
//address of interrupt 
//character pointers 
//holds status of char 
//holds font description 
//buffer for readCII) 

//character buffer 

//hdr table of edited/created font 
//temp hdr table during an include 
//a node holds info on a single 
//character stored on the llist 



t rap 



in char buffer 



i n t 


c ode ; 


//character code 


char 


*de f ; 


//Dt r 


t o 


c h a r 


definition 


i n t 


n s i z e ; 


//si z e 


o f 


new 


definition 


char 


stat ; 


//status 


of modification 


struct node *next; 
} 1 1 i st 1 129) ,* 


/ /d t r 


t o 


next 


noae in llist 


st rue t 


node *head; 


/ / d t r 


t o 


head 


of llist 


struct 


node *a va i 1 ; 


//ot r 


t 0 


next 


free node 


struct 


node ‘current; 


//ot r 


t o 


node 


found in FIND 
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struct node *i nsert ( ) ? //node returned by INSERT 
char rfontfile(40); //fontfile being included from 
char wfontfile(40l; //file being written to 
char sfontfi 1 e f 4 0 ] {"/.fonts. 01/font/"}; 

//pathname header of fontfile to 
//be edited 

char nfsize(5]{"10"}; //default pt size for Hershey font 

ma i n ( a rgc , a rgv ) 

int argc; char **arqvl { 

i n t i » 

if (argc > 1) {//argument s*>edi t mode 

if (argvllJ (0] == '-'} {//digitize Hershey font 

if (argc = = 3) {//check any point size 

if ((ptsize = atoi (arqv 12) ) ) > 4 2) { 

printfC" point size exceeds 42"); 
e x i t ( ) ; 

> 

o = h f s i ze ; 

for(i=0;(*c + + = a rg v ( 2) ( i 1 ) 1= ' \ 0 * ; i + + ) ; 

} 

p i d = f o r k ( ) ; 

if ( p i d 1 = 0 ) 

while ( pid 1= waitO ) ; 

else //create process to digitize Hershey font 
execl ("makehf","makehf"/arqv(l] » h f s i z e / 0 ) ; 
readfp = oPen("/. fonts. 01/HFONT"f0); 

} 

else if ( arqv 111 [0] == '/' ) {//full pathname 

readfp = ooen (arqv 11] » 0) ; 

} 

else { 

p = arav (1) ; 

f o r ( i = 1 6 ; ( s f on t f i 1 e ( i 1 = *o + +) != *\0';i+ + ); 

readfp = ooen ( s f on t f i 1 e > 0 ) ; 

> 

edit - 1 ; 

} 

i n i t ( ) ; 

s i gn a 1 ( 2 , on i n t r ) ; //set interrupt trap 
whi le (1 ) { 

set ex i t ( ) ; 

orintf("\n%3o> "/infont); 
oeekc = (peekc == *\n') ? 0 : oeekc; 
if (commandO) { 

print f("?\n") ; 

if (oeekc != '\n*) wh i 1 e ( (c=ge t c ( ) ) 1= '\n') ; 

> 

} 

} 

i n i t ( ) { 

int i ; 

if (edit) { 

if (readfp > 0) fonthdrU; 



1 06 



> 



else { 

printf( H fontfile not foundNn"); 
e x i t ( ) ; 

> 



else {//create mode 
zhdr(hdr) ; 

print f ( "\nfont height ? " ) ; 

wh i 1 e ( ( h t =ge t num ( ) ) < 0 !| ht > 120) { 

Deekc = 0; printf (" height ? ")? > 

printfC" % d ! \ n " , h t ) ; 
peekc = 0; 

Dr intfC" maximum character width ? " ) ; 

w h i 1 e C ( ma x w=qe t num C ) ) <0 !! maxw > 256) 

peekc = 0; orintfC" Maxwidth ? " ) ; } 

o r i n t f ( " %d !\n",maxw); 
peekc = 0 ; 

printf (" logical heiqht above baseline ? ") 

while((lht=aetnum()) < 0 IS lht > ht) { 

peekc = 0; printf("lht ? ")? > 

printfC" % d 1 \ n " / 1 h t ) / 
peekc = 0; 

printf("Type in any one-line")? 

printfC" font description, if desi red.\n" ) J 

qetname(des ) i 

} 

max = 52677; wrflaa = 0; 

head->code = max,' 

head->next = 0; chmod - 0; 

include = 1? freenode = 1; 

infont = 0; wr = 1; 

head = llist; avail = & 1 1 i s t 1 1 1 ; 



{ 



zhdr(h) //zero a hqr table 
int hi); { 

register int i; 
n = h ; 

forCi=0;i<256;i++) *n+t; 



int getcC) {//return next char in command line 

i f {peekc ) { 

c = peekc,' 
peekc - 0; 

} 

else { 

c = qetcharC); 

if Cc 1 = 1 1 ) oeekc = c ; 

> 

returnCc); 



fonthdrC) {//read hdr table and font Dimensions 
int i ; char t > 
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r ead ( readme/ ho r * 5 1 2 ) ; 
read( readfp*&ht * 2 ) ; 
p r i n t f ( " \nHe i gh t %o "*ht); 
if (ht > 120 !! h t < 0) { 

orintf("toO high"); e x i t ( ) ; ) 

read( readfp^&maxwi?) ; 

print f(" Maximum character width % d "*maxw); 
if(maxw > 25b ! J max w < 0) { 

printf ("too wide"); e x i t ( ) 7 ) 
read(readfp*&lht*2); 
print f(" Logical height %d\n"*1ht); 
i f ( 1 ht > ht ! ! 1 ht < 0 ) { 

printf("too high"); e x i t ( ) ; ) 
seek(readfp»51fl/0) ; 
p = des; t = 1; 
f or ( i =0 ; t != '\0';it + ) { 

read(readfo/&t / 1); 

*o + t = t ; 

} 



int getnumO {//convert numeric string and rtrn value 
i n t i / base ; 

i = o; 

while((c = aetc ( ) ) == ' ' ) ; 

if (c > = 'O' 8. & c <= '9') { 

base = ( c — ' 0 ' ) ? 10 : 8; 
oeeke - c; 

if (base == 10) wh i I e ( ( c =ge t c ( ) ) >='0' && c<=’9') 
peeke - 0 ; 

i = i * b a s e + c - 'O'; 

} 

else while((c=getc()) > = ' 0 ' & & c < = ' 7 ' ) { 

peeke = 0; 

i = i * b a s e + c - 'O'; 

> 

oeeke = c ; 
re t u rn ( i ) ; 

> 

else(//there was no numeric strinq 
oeeke = 0; 

if (c == '+') return(-2); 

if (c == '-') return(-3); 

peeke = c; //c will be processed later 

return(-l); 

} 

} 

int command!) { 

/* Process the command line; 
update infont 
check command arguments 
execute command 

Any oroblems ? return a 1; otherwise* return a 0 
register i , j ; 



int tempi ki h , hb> lb; 

swi tch(temp = getnum( ) ) { 

case - 2 : //increment infont 

if (chmod) putdef(); 
i n f on t + + ; 

in - 0 ; c hmoo = 0 ; 
break; 

case -3: //decrement infont 

if (chmod) putdef ( ) J 
infont--; 

in = 0; chmoa - 0; 
break; 

case * 1 : break; //no change 

default: //infont gets temp 

if (chmod) outdef(); 
infont = temp; 
in = 0; chmoc = 0; 
break; 



} 

if (infont < 0) infont = 127; //check for wraparound 
if (infont > 127) infcnt = 0; 

while((c = aetcO) == ’ ' ) > 

switch ( c ) 1 

case 'a': //aba a character 

instrO; c=aetchar(); getdim(); p = tbuf; 

f o r ( i = o ; i < a o o o ; i + + ) *p + + = o ; 

bytes = (rw%8 == 0) ? rw/8 : rw/8 + 1; 

in++; wrflaq++; chmod++; break; 

case 'c': //change lines s thru e 

if (qcharde f ( readf p ) ) { 

if (setse(ht)) error; 
sb as e ( ) ; 

f o r ( i = s ; i < e ; i + + ) 

for(j=first; j < last+first; j++) 
t bu f ( i *by t es + j ) - 0; 

f o r ( i = s ; i <=e; i++) { 

p r i n t f ( " % 3 d " / i ) ; 
for(j=first; j < last+first;j++) 
tbufli*bytestjl = aetdef(); 

} 

i n + + ; cstat = 'm'; 
wrflaa++; chmod++; 

} 

else error; 
break ; 

case * d * : //delete char's s thru e 

if (setse(128)) error; 
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c s t a t = ' d ' ; 

fort infont : s? infont< : e» infont + + ) ( 

if(hdrtinfont*2J == 0) continue? 
hd r [ i n f on t *2] = 0? putdefO? 

} 

in = 0? wrflaq+t; break? 

case ' e ’ : //ecit lines s thru e 

i f ( gc h a roe f ( read f o ) ) { 

i f ( se t se ( h t ) ) error? 
sbase ( ) ? 

q 1 1 y ( 1 / sg 1 1 y ) ? savetty = sgttyUJ? 
f o r ( i = s ? i < = e ? i + + ) ( 

pr i nt f ( "\n%3d " / i ) ? 
sgttyUJ =1 03? st t y ( 1 / sgt t v ) ? 
for(j’ = first?j<first + last? j + + ) 

1 ist ( " %c%c%c%c%c%c%c%c"/tbuf [ i * d y t e s + j ] ) 
sqttytl) = savetty? s t t y ( 1 / sg t t y J ? 
print f("\n ")? 

for(j=first?j<first+last?j++) 
t bu f t i *b y t es + j J = getdefC)? 

> i nt t ? wrf laa+t? chrodt + z cstat = 1 m ' ? 

} else error? break? 

case ' f ' : //switch char dimension flag 

dim =(dim) ? 0 : 1 ? 

break? 

case ' i ' : //include char's s thru e from rfontfile 

if ( se t se ( 1 28 ) ) error? 
getnaretrfontf i le) ? 

poendt rfont fi le/"/. fonts. 01/font/") ? 
i f ( ( t emo = open ( r f ont f i 1 e / 0 J ) < 0) { 

orintf ("cannot ooen %s" /rfontfile)? error? 

> 

CDy(hor/fhdr)? read(temo/hdr/5l2)? 
read(temp/8.tht/2)? reaa(temo,<4tmaxw/2)? 
read(temp,&tlht / 2)? 
if ( r e j e c t ( ) ) ( 

ori nt f ( "compatible ")? 
c py ( f hd r / hd r ) ? error? 

} 

in = include = 0 ? 
cstat = ' i * ? wr = 0? drc - 1? 

for(infont=s? infont<=e? i n f o n t + + ) { 

if (gc ha roe f ( t emo ) ) putdefO? 
else if(drc == 0) putdefO? 

> 

c 1 o se ( t erne ) ? wr = 1? 

for(i=0?i<s?i++) { 

hdrli*2J = fhdrfi*21? hdr[i*2tlj = fhprti*2+ll 

) 

for(i=e+l/i<128;i++) { 

hor(i*2] = fhar[i*2J? hdr[i*2+l] = fhdrli*2+l) 

> 
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include 



1 i w r f 1 aq+ + ; break 



case //list lines s thru e 

if ( gc h a r de f ( r ead f p ) ) { 

if (setse(ht)) error? 
sba se ( ) ? 



f o r ( i = s ? i <= e?i++) 
printfC "\n%3d " , i ) ? 
for(j=first?j < last 
1 i s t ( 

} 



first? j + + ) 

"rtbuf t i * b y t e s + j 1 ) 



intf.’ 

} 

else error; 
break; 



case 'n'; //display font description and table 
p = des; 

if(*p = = ' \ 0 ' ) Dri nt f ( "no desc r i pt i on\n" ) »' 

else for(i=0;*o != ' \ 0 ' ; i+ + ) 

out char(*pt + ) ; 
put char (' \n ') ; 

p r i n t f ( " 0 1 2 3 a " ) ; 

printfC 5 6 7”); 

for(i=0; i < 1 2 8 ; i + t ) { 

i f ( i %8 == 0 ) { 

if (i == 0)orintf ("VnOOO"); 

else if (i < 0100)printf(” \nO%o"/i); 

else printfC "\n%o"ri); 

1 

ps t a t ( i ) ; 

} 

print fC\n\n' ' undefined 'X' unmodified "); 

d r i n t f ( " ' I ' incluaed "); 

printfC” 'O' deleted ' M ' modified"); 

break; 



case 'o': //modify font/char dimensions 

instrC); c = qetcharC); 
getdimC); break; 

case 'q': //quit? warn if not written 

if Cwrflaq) { 

w r f 1 aq = 0 ; 
print f C " w r i t e ? ? " ) ; 
error; 

> 

e x i t ( ) ; 



case 's': //shift lines s thru e once 

i f ( qc h a rde f ( read f o ) ) { 

oeekc=0; temo=qetc(); 
if (setse(ht)) error; 
sbase ( ) ; 



switch (temp) 



{ 



case ' r ’ : //right 

f or ( i =s ; i <-el i + + ) { 

lb = 0; 

for(j=first; j < first+last; j++) ( 

hb = lb; p = &tbuf(i*bytes+j]; 
if ( *o & 01) lb = 1; else lb = 0; 

* p = > > l ; 

if(hb) *p =1 0200;else *p = & 0177; 

} 

) break; 



case ' 1 ' ; //left 
for(i=s;i<=e;i++) ( 

h b = 0 ; lb = 0; 

for(j=first + last-l;j> = first»*j--) ( 

p = &tbuf[i*bytes+jl? 

i f ( ( *p&0200 ) >>7 ) hb = 1; else hb = 0; 
*p =<< l; if(lb) *o = ! 01; lb = hb; 

> 

} break; 



case 'u': //up 

for(i=s** i< = e; i + + ) { 

if(i = = 0) continue; 
for(j = first; j <fi rst + last; j + + ) 

tbuf((i-l)*bytes+jl = tbufli*bytes+j) 

> 

for(j=first; j<first+last;j++) 
t bu f le *by t es t j 1 = 0; 

break ; 



case 'o't //down 

f o r ( i =e ; i >= s ; i -- ) ( 

if (i == h t “ 1 ) continue; 

for(j=first; j<first+last;i++) 

tbuf((i+l)*bytes+i) = tbuf(i*bytes+j] 

> 

for(j = first; j<first + last; j + + ) 
tbuf(s*bytes+j] = 0 ; 

break ; 



default: error; 



> 



> //list the shift 
for(i=s; i <= e; i + + ) { 

printf("\n%3d " f i ) ; 
for(j=first;j < first+last; 
1 i s t ( " 



j t + ) 

tbuf (i *by t e s + j ) ) 



1 



in + + ; wrflag + + ; c h m o d + + ; cstat = ' m ' ! 
else error; break; 
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case 'w': //write to wfontfile and oui t 

if (chmod) out de f ( ) ; wr = 0; 
getnameCwfont f i 1e) ; 

//no writing to file being edited 
if ( cmor(wfontfi1e,sfontfile) I! 
cmpr(wfontfile/"HFONT") ) { 

printf("writina to existing file ")/ w r = 1 / error; 

> 

if( (wri tefp = creat (wfontfile, 0666)) < 0) { 

printf(” file ")/ error; 

} 

zhdr(fhdr); 

write(writefp,fhdr,512); //write blank hdr table 

wri te(wri tefp,&ht»2), 

wri te(writefc,&maxw,2); 

write(writefc,&lht,2); 

bike = l; byte - 6; o = desl 

for(i=0; *p 1= ' \ 0 ' ; i + + ) { 

wri t e (wri tefD/D+ t / 1 ) J bumo(l); 

> 

write(writefpfP»l); burned ) J in = 0 ; 
for(infont=0; i n f ont < 128; infont++) { 

if ( h d r ( i n f on t * 21 = = 0) continue; //no char here 
else if (find(infont)) (//get it from llist 
if (current->nsize == 0) continue; 
fhdr(infont*2] =(hdr(infont*2]&0377) ! (blkc<<8) 
f h d r ( i n f o n t * 2 + 1 1 = byte; 

wri te(wri tefp»current - >def ,current~>nsi ze ) ! 

bumo(current->nsi ze) ; 

free(current->def); 

> 

else if (edit) (//aet it from file 
i = gc h a rde f ( reaa f p ) ; 
p = t bu f ; 

fhdr (infont*2) =(hdr li nfont *21 & 0 3 7 7 ) ! (bl kc<<8) 

f h d r ( i n f on t * 2 + 1 ] = byte; 

write(writefo,o,8); bumo(8); 

p = + bytes*rf t + 8; 

wri te(wri tefo»o, bytes *drc ) > 

bump ( by t e s *d re ) ; 

> 

else error; 

> 

see k ( w r i t e f d , 0 , 0 ) ; 

wri te(wri tefc> fhdr, 512) ; 

delete = 1 ; 

//remove any empty fontfile 

for(i=0;i<256;i=+ 2) ifCfhdrtiJ > 0) delete = 0; 
if (delete)(blkc = byte = 0; unlink(wfontfile);} 
printf("%l\n",blkc*512+bytc); 
e x i t ( ) ; 



case ' \n ' ; break; // sync 
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I c ) ; 



default: 

print f("%c " 
error; 



> 

return (0) ; 

> 

bump ( i ) //running count wfontfile size 
//in blocks and bytes 
inti; i 

if (bytc+i >=512) { 

if ((bike + (bytc+i ) /512) < 255) { 

bike = + ( by t c + i ) /S 1 2 ; 
byte = (bytc+i )%512? 

} 

else if (bytc+i > 32768) { 

printf("file too bio"); e x i t ( ) ; 

> 

else byte =+ i; 

) 

else byte = + i; 



int c m o r ( p 1 / o 2 ) / / r t n 1 if ol != p2; otherwise/ 0 

char * p 1 , * p 2 ; { 

f or ( ; ; ) ( 

if ( * p 1 1= *d 2 + +) return(O) ; 

if (*pl + + == * \ 0 * ) return(l); 

> 



cpy(nl/n2) //copy ol to o2 
int *nl/*n2; { 

int i ; 

f o r ( i = 0 ; i <25 6 ; i + + ) +n2++ = *nl++; 



opend(ol/p2) //preoend o2 to pi 
char nil), o2U; ( 

char *ol/ *o2/ t ( 4 0 1 ; 
bl = pi? b2 = t? 



wh i 


1 e ( ( *b2 + + 


- * b 1 + + ) 


1= ' \0 ' ) 


b2 


= d2 


? b 1 = 


• pi; 




wh i 


1 e ( ( 


*b 1 + + 


= *b2++ ) 


1= • \ 0 * ) 


b2 


= t ; 


bl--; 






wh i 


1 e ( ( 


*b l + + 


= *o2++) 


1= *\0 ' ) 



int r e j e c t ( ) ( //rtn 1 if files are incompatible;ow/ 0 
if(tht 1= ht !! tlht 1= 1 h t !! tmaxw > maxw) return(l) 
else return ( 0 ) ; 

> 



onintrO { //restore environ, reset int trap 



signal (2/onintr); 
if (savetty) ( 

sgttyfll = savetty; 
savetty = 0; 
stty(lzsgtty); 
savetty = 0; 

> 

res e t ( ) ; 



int gc h a rde f ( f o ) 

/ * Get the character definition for the current 
character, put it in the char buffer, expand 
blank rows, and oisolay necessary diagnostics * / 
int f p / { 

register i , j ; 
register char *to; 

if (in) return(l); //it's already tnere, rtn 1 
if (find( infont) & & include) ( //it's on the llist 
if ( c u r ren t -> s t a t == 'd') ( 

p r i n t f ( " deleted "); 
return(O) 

} 

t p - t bu f ; 

chardef = c u r r en t ->de f ; 

* t p + + = r w = ‘chsrdef + + ; r w = & 0377; 
rw =! (*tp++ = *chardef++) << 8; 

if ( r w < = 0 ) { 

printf ("Xo raster width % d ", infont » rw) ; return(O) 

} 

bytes = (rw%8 == 0) ? rw/8 : rw/8 +1; 

*to + + = lk = *chardef++; Ik =& 0577; 
lk (*tD++ - *chardef++) << 8; 

*tp + + = rft = *chardef++; rft = & 0377; 
rft = ! ( *tott = *chardef tt) << 8; 

*to++ = drc = *c h a r de f + -t- ; drc = & 0377; 
drc = ! ( * t d t + = ‘chardef + + ) << 8; 

i f ( d rc - - 0) { 

p r i n t f ( " printable "); 
return(O) ; 

} 



bo t - h t - 


(drc 


+ rft); 








f o r ( i = 0 ; i 


< rft 


; i + + ) 








f or ( j =0 ; 


j < 


bytes; 


i ♦♦ ) 


* t p + + 


= 0; 


f o r ( i = 0 ; i 


< drc 


; i + + ) 








f o r ( j = o ; 


j < 


bytes; 




* t p + + 


= ‘chardef ‘+ 


f o r ( i = 0 ; i 


< bot 


; i + + ) 








f o r ( j = o ; 


j < 


bytes ; 


j + + ) 


* t P + + 


II 

o 



if (wr & & dim) cchardi m( ) ; 



return(l); 

> 

//get it from the file 
if (hdr(infont*21 == 0) { 

or intf(" undefined "),* return(O); 
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) 



if ( ( j = (hdr(infont*21 4 0177400) >> 8) 1= 0) { 

j = 4 0377; 
seek ( f d , j , 3 ) ; 

seek (fo/hdr [infont *2+1) , 1); 



> 

else see k ( f o / hdr t i n f on t *2 + 1 ] , 0 ) ; 
read( fD/S<rwf 2) • 
if ( r w <= 0 ) { 

p r i n t f ( " % o raster width %d " > infont , rw) »' return(O) 

> 

read ( f p > 4 1 k , 2 ) ; 
read ( f p / 4 r f t / 2 ) ; 
read ( f p / 4d rc / 2 ) ; 
if (drc - - 0 44 wr) { 

p r i n t f ( " printable ")» 
return(O); 



> 



bot = ht -(drc + rft); 

bytes = (rw%8 == 0) ? rw/8 : rw/8 + 1 ; 

t p - t bu f ; 

* t p + + = rw & 0377; 

*tp++ - (rw 4 0177400) >> 8; 

*tp++ = lk 4 0377; *tp++ = (Ik & 0177400) >> 8; 

* t p + + = rft 4 0377; * t p + + = (rft & 0177400) >> 8; 
*tp++ = drc & 0377; *tp++ = (drc 4 0177400) >> 8; 
f o r ( i - 0 ; i < rft; i + + ) 

for(j=0; ] < bytes; j++) *tp++ = o; 
f o r ( i = 0 ; i <drc; i++) { 

read ( f P/ i bu f / bytes); 

f o r ( j = 0 ; j < bytes; j + + ) *tp + + = ibuftj); 



> 

f o r ( i = 0 ; i < bot; i + + ) 

f o r ( j = 0 ; j < pytes; j + + ) * t p + + = o; 

if (wr 44 dim) pchardimO; 
ret urn ( 1 ) ; 



int setse(x) //set command aras s and e 
i n t x ; { 

pee kc = 0 ; 
s = getnum(); 
i f ( s < 0 ) { 

s = 0 ; e = x - 1 ; 
return(0) ; 

> 

e = getnum(); 
if (e < 0) e - s# 
if (e < s) error; 

if((s > - x ! ! e >= x ) 44 x == 128) error; 

if((s > x ! ! e > x) 44 x == ht) error; 
return(0) ; 



} 



list(fmtfbyt) 

//list byte* bit by bit/ 0 = > ' . ' , 1 = > ' 0 ' 
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char *fmt » by t ; i 

printf(fmt/0200&byt?'0' : ' . ' /0100&byt?'0' : ' 

OO^O&bytT'O' : ' . ' /0020&byt?'0' : ' 
0010$.byt?'0':'.’,0004&byt? , 0’:' 
0 002&byt?’0' : ' . • , OOOl&bytV’O' : ’ 



i n t f i nd ( i ) 

//if current character is on llist/ rtn 1 and 
//current points to correct node/ ow> rtn 0 
inti? { 

register struct node *Dtr; 
ptr = head; 

while (i > ptr->cooe ) 
ptr = pt r->nex t / 
if ( i == pt r->c ode ) { 

current = ptr; 
re t u rn ( 1 ) ; 

> 

else ret u rn ( 0 ) ; 



getname(fi le) 

//get name ending in * \ 0 * and stick it in fil 
cnar filet); { 

while(Cc = aetcO) == ' ' ) ; 

if(c 1= '\n') { 

p = file; 
do { 

*o + + = c ; oeekc = 0 ; 

) wh i 1 e ( ( c = get c ( ) ) 1 = ’\n'); 

*p = • \0 ' ; 

} 



putdefC) { 

//put definition in char buffer on llist 

if ( f i nd ( i n f on t ) ) 1 node ( c u r ren t / i n f on t ) ; 

else { 

1 node ( i nsert (ava i 1 /infont)/ infont); 
if (freenode > 128) { 

printf ( " overflow" ); e x i t ( ) / 

> 

avail = 4 1 1 i s t t + + f r eenode) ; 

> 

> 

1 node ( Pt r / k ) //do the work for PUTDEF 
struct node *otr; int k; { 

register int i/j;register char *tp; 
int clear; 
ptr->code = k ; 
if (cstat == ' d ’ ) { 

Ptr->stat = cstat; 
return; 



} //count blank rows at too and bottom 
r f t = bot = 0; 
i = 0 ; clear = 1 ; 
wh i 1 e ( i < ht && clear) 1 

f o r ( j = 8 ; j < bytes + 8? j + + ) 

if ( t bu f ( i * by t e s + j 1 1= 0) clear = 'NO'; 

if (clear) rft = i + 1 ; 
i t + ; 

) 

if (•> < ht) { 

i - ht-*l/ clear = 1; 
whileCi > 0 SX clear) { 

for(j=8; j < bytes + 8; j + 1 ) 

if Ctbuf(i*bytes+jJ 1= 0) clear = '\0'; 

if (clear) bet = h t - i ; 
i — ; 

> 

> 

dre = (arc) ? ht -(rft+bot) : 0? 

if(drc == 0) rft = lk = OP 

to = ptr->def = a 1 1 oc ( by t e s *d rc +8 ) ; 

*tp + + = rw & 0377; *tp++ = (rw & 0177000) >> 8; 

* t p + + = lk & 0377; * t d + + = (lk 8, 0177000) >> 8; 

*tp + + = rft & 0377; *tp + + = (rft 5- 0 1 77000 ) >> 8; 
*tp++ = dre & 0377; *tp++ = (dre & 0177000) >> 8; 

for(i=rft; i < rft+drc;i++) { 

for(j=8; j < bytes + 8; j + + ) 

*to + + = t bu f ( i *by t es + j ) ; 

> 

pt r->nsi ze = 8 + d r c * by t e s ; 
p t r -> s t a t = cstat; 



struct node ‘insert (a/ i ) 

/ / r t n a node for PUTDEF to use 
struct node *a; int i; ( 

register struct noce *ptr/*temp; 
t emo = ptr = head; 
while( i > ptr->cooe ) { 

temp = ptr; 
ptr = otr->next; 

} 

if (ptr == head) { 

a*>next = head; 
head = a ; 

} 

else { 

a*>next = temp->next; 
t emp->ne xt - a '• 

) 

a->stat = a _ >def - a->nsi ze = 0; 
return(a) ; 



sbaseO ( //set horizontal starting Point for char def 
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first = 8; last = bytes; //normal char/ default 
if (bytes > 9) { //too wide/ get a starting ot 

orintf ("\ntoo wide. ..starting where ?"); 
oeekc - 0 ; 

while((last = getnumO) < 0 !| last >= rw) { 

p e e k c = 0; orintf (" where ? " ) ; } 

oeekc = 0; 

last = (last == 0) ? 1 : last/8 + l; 

first = first + last-1 ; 

last = ((bvtes+8-first) > 9 ) ? 9 : bytes+8-first 

> 

> 

getdef() ( / / o e t one byte of a definition 

int mask,i,j; 
oeekc = 0; 

while((c = getcH) 1= 'O' c 1= '.') ; 

oeekc = c ; 

i = j = o; 

mask = 0400; 

wh i 1 e ( ( j + + < 8) && ( (c=qetc ( ) ) == 'O' \\ c == ’.')) 

peekc = 0; 

if ((mask = mask>>!) & & c == '0') 

i = ! mask; 

} 

ret u r n ( i ) ; 

} 



pstat(i) //print char status for edit table 

inti; ( 

if (find(i)) < 

s w i t c h ( c u r r en t -> s t a t ) ( 



case ' d ' : print f (" D 
case ' i ' : printf (" I 
case ' m ' : pri nt f ( " M 



" ) ; b r e a k ; 
" ) ; b r e a k ; 
" ) ; b r e a k ; 



> 

> 

else if ( h d r [ i * 2 ] == 0) printf (" "); 

else orintf(" x "); 



PCharaimO { //disolav char dimensions 
int i ; 

i f ( ( i = hdr (i nfont*2] K 0377 ) == 0 ) { 

printf ("undefined"); return; 

> 

printf ("rw % d cw % d " , r w , i ) ; 

if (rw = = i) orintf("lk % d rk % d " , 1 k , 1 k ) ; 

else if (Ik) ( 

if (lk + i == rw)printf("lk % d rk % d " > 1 k , 0 ) ; 
else printf("lk ~d rk %d"»lk,rw -i-lk); 

> 

else orintf("lk % d 



rk %d",1k,rw-i) 



> 



print f(" ht %d lht %d " ,ht*1ht); 
printf("rft % d drc %d\n",rft,drc); 



ge t d i m ( ) { 

/* Look for a number and/or name. Take both as 
a request* rejecting invalid requests with a ’?' 

Quit on * t * and return to the main command loop * / 
int i,j, font* char name [201; 
j = hd r [ i n f on t * 2 ] 8-0 37 7 ; font = 0; 
while ( 1 ) { 

oeekc = 0; printf("\n%3o-> ", infont ) 1 
i = getnumO ; qe t name ( name ) ; 
if(cmpr(name,"t")) break; 
if(cmpr(name,"i")) instrOJ 
else i f (cmortnan’e/'infont")) [ 

infont = i; i = gchardef(readfp); 

> else i f (cmprtname, "d") ) { 

printf("%s\n"*aes) ; 
peekc = 0; qe t name ( de s ) ; 

} else if(cmor(name,"o")) DcharoimO; 
else i f (cmprtnaire, "f '') ) 

p r i n t f ( " ht % c maxw %d lht 7.d\n" , ht ,maxw, 1 ht ) ; 
else i f ( cmp r ( name , " h t " ) ) { 

if(i >= 1 h t ) < ht = i; wrflag + + ; > 

else printf ("\n? " ) ; 

> else i f (cmprtname, "1 ht " ) ) { 

if(i < = ht)< lht = i; wrf 1 aq++? > 

else printf ("\n? "); 

} else if(cmpr(name, H maxw")) { 

if(i < 0 !! i > 25b) [maxw = i; wrflag++; > 

else orintf("\n? "); 

} else if (cftipr(name,"cw")) [ 

i f ( gc h a roe f ( read fo ) ) { 

if(i <=rw) { 

hd r t i n f on t * 2] -K 0177400; 
hdr [ i n f ont *2) =! i & 0377; 
lk = rw-i; font = 1 ; 

} else printf C'\n? "); 

> else o r i n t f ( " cw now Zd\n",(ndr[infonti=i)); 
} else i f (cmprtname, "rw" ) ) { 

if (achardef (readfp) ) ( 

i f C i < = maxw) { 

rw = i ; font = 1 ; 

i f ( rw < j ) { 

h d r [ i n f on t * 21 = & 0177400; 

hdr [ i nf ont *2] =! i & 0377 ; 

Ik - 0; font = l; 

} 

> else printf ("\n? "); 

1 else p r i n t f ( " rw now %d\n"*(rw = i)); 

1 else if(cmor(name,"lk'' )) { 

i f (achardef ( readfp) ) { 

i f ( rw == j ) { 

i f ( i == 0) [lk = i; font = 1; ) 
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else orintf ("\n? " ) ; 

} else i f C i < = rw-j) 1 lk = i ; font = 1 ; } 

else print f("\n? " ) ; 

> else p r i n t f ( " Ik now %d\n"/(lk = i)); 

> else i f (cmor (name / "rk" ) ) ( 

if(gchargef(readfo)) ( 

i f ( rw == j ) { 

if (i = = 0) ; else printf("\n? " ) ; 

> else if(i <= r w- j ) { 

i f ( i + 1 k - = rw-j) J 

else ( lk = rw-i; font = 1; ) 

> else print f ("\n? " ) ; 

> else printf("\n? "); 

) else printf("\n? "); 

) 

if (font) i 

wrf 1 3Q+t<’cstat = ' m ' ; pu t de f ( ) / i n = 0; 

> 



instrC) ( //display instructions for GETDIM 
printf(" Modifiable FONT dimensions are:\n"); 
or intf(" height- 1 h t ’ max character width- ' m a x w ' " ) ; 
p r i n t f ( " logical height- ' 1 ht ' \n\n" ) ; 
print f(" Modifiable CHARACTER dimensions are:\n")/ 
pri nt f ( "raster width- 'rw' character width- 1 c w ' " ) ; 
p r i n t f ( " left kern- 'lk' right kern ' rk ' \n\n") ; 
printf("Tyoe ' i ' for instructions/ 'p' for ")/ 
prjntf ("dimensions of character in buffer. \n" )/ 
printf("To move to another character/ update ")/ 
print f ( " ' infont ' . \ n " ) ? 

printf("\nGet font dimensions with ' f * . ”); 
print f ("Modify font name with 'd'. If you're adding"); 
print f("a\n character/ make changes in this order only;"); 
printf(" 'rw'/ 'lk' , then ' c w ' . \ n " ) ; 

print f ("\nlmoossibl e modifications are rejected...."); 

print f ("some examole inouts might be\n" ) ; 

p r i n t f ( " '22 1 h t ' / '063 infont'/ ' i ' / or '0 1 k ' \n\n" ) J 

printf (" You'll be prompted with a '->'. "); 

pri nt f ( "when you are finished/ type ' t ' . . . \ n \ n " ) ; 



121 



PRFONT 



12 May 1977 



PRFONT 



DESCRIPTION 



prfont [-<number>] <fn> <fn> ... <fn> 



Prfont takes font names or full pathnames as arguments. 
For each argument/ Prfont displays the font/ setting the 
characters in the character code collating sequence. 
Character positions are set and appear as they would if 
used in documents. The fonts are displayed in a 9 inch 
horizontal field which may be adjusted by an optional 
leading argument/ a decimal number between 1 and 269. 
The default field widtn (9 inches) is 216 bytes. 



FILES 



<fn> must be a digitized file 



PRFONT 



PRFONT 



PRFONT 



^define SPACE 1 

#de fine T OP 230 

^define PAGEHT 1 '4 * 1 0 0 

int roww» rows? 

int I i necount PAGEHT; 

int oagewth; 

int prdev/ plaev/ infont; 
int h t / maxwf 1 h t / f o ; 
int head/ tail/ nodeotr; 
int z e r o 1 1 1 / hdr(2561; 

char *lp/ *p; 



// 

// 



one 
t OP 



1 / 4 inch 
margin 



vertical space 



f f 014; char nl 012; 
header [401 {"/. fonts. 01/font/ " } 

Pi buf [264] ; 



char 
char 

char prpuf[l 321 
struct cnode ( 
int c c ; 
char * 0 Pt r; 
char * 1 d t r ; 
int rw; 
int bytes; 
int Ik; 
int r f t ; 
int d rc ; 

> c 1 i st [ 128] ; 

struct cnode * a ; 

struct cnode *fset[1281; 



//char code 
/ / - > 1 s t raster line 
//-> next raster line 
//raster line width 
//bvtes per raster line 
//left kern 
//rows f rom too 
//dat a row count 



mainCargc/ arav) 

int argc; char **aravl { 

register int i/ argptr; 
char ao ; 
argot r = 1 ; 

if((praev=ooen("/aev/soo"/l)) < 0) ( 

orintf ("cannot open orinter") Jexi t ( )/ 1 
if((ploev = open(”/dev/rvo”/l)) < 0) { 

Dri nt f ("cannot ooen plotter " ) ; e x i t ( ) ; > 
if Cargvtl] (0) == (//r<=>set oagewth 

oagewth = atoiC &a rg v ( 1 ] ( 1 ] ); qo = 1? } 

else ( pagewth = 216; go = 0 ; } 

i n i t ( ) ; 

wh i 1 e ( --a rgc 1= go 3 (//process all files 
o = a rav ( a root r + go 1 ; 
if ( *o == '/' ) { //full pathname 

if ( ( f o = ooen ( a ra v [a rap t r fgol / 0 ) ) < 0) ( 

orintf ("cannot open Xs",arav laraptr + qol ) ; 
e x i t ( ) ; } 

printf ("ts opened. . . ."/arav (argptr + gol ) ; 

> 

else ( //preoenc / f on t s . 0 1 / f on t 

for(i = l6;(header(i]= * o + + ) 1= ' \ 0 ' ; i + + ) ; 

i f ( ( f o=open ( heade r , 0 ) ) < 0) ( 

orintf ("cannot ooen Xs" » header) Jexi t ( ) ; 1 
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"/header); 



printf("%s opened 

> 

infont = head - tail = nodeotr = roww = 0; 
read(fp/hdr/512); read(fp/&ht/2); 
readifo, Jmaxw/2) > read(fp»&lht/2); 
check(); //check for bad font file 
if ( ht <= 82 ) < 

//set vert spacing 
if (ht <= 40) rows = 2 
else rows = 3 ; 

> 

else rows = 4 ; 

//pgbk if font aisolay won't fit 
i f ( n room ( row s * h t + 40)) Daqehreak ( ) ; 
p = prbuf; for(i=0;i<60;i++) * o + + = ' ' ; 

for(i=0;(*p + + = argvfarqptrtaolli]) 1= 1 \ 0 ' ; i + + ) ; 

*p - n 1 ; 

//center/ write font name 
wri te(ordev/orbuf/ i +62) ; 
for(i=0;i<25/i+ + ) wri t e (ol dev / zero/ 2) ; 

1 i necoun t - + 25 ; 
while ( 1 ) { 

ge t row ( ) ; 
outrowO) 

if(infont > 127) break; 

} 

close(fp); o r i n t f ( "c 1 o sed\ n " ) ; arqotr + + ; 

//if need be/ cqbk 
i f (n room ( SPACE *2 ) ) oagebreakC); 
else soac e ( SP ACE * 2 . ) ; 

} 

e w i t ( ) ; 

> 

i n i t ( ) ( 

register int i; 

for(i=0;i<128;i++) fsetlil = Sclistti)/ 



oaaebreak() { //caae eject 
int i / 
char err; 

err = c vers (pi dev / 020 ) ; 
if ( err == -1 ) { 

printf(" invalid fileoes in Daqebreak\n"); 
e x i t ( ) ; 

> 

for ( i =0; i <TCP; i + + ) write(ploev/zero/2); 

1 i necount = TOP; 



qetrow() { //get a row of chars to plot 
i f ( t a i 1 ) ( 

roww = f s e t ( + + t a i 1 1 ->by t e s / 
head = t a i 1 + + ; 
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> 

while ( 1 ) < 

i f ( ge t de f ( ) ) { 

if(roww + fsetttail)->bytes <- oaoewth) 
roww =+ f se t ( t a i 1 J ->by t es ; 
else {tail- - ; + + i nfont ; break;} 
if (t+infont > 127) break; 
t a i 1 + + ; 

> 

else i f ( + + infont > 127) break; 

} 

} 

putrowO 1 //plot the row of characters 
register int h , i , I ; int t; 
struct cnobe *otr; 
for(h = 0; h < ht; h + + ) 1 

p = 8pl buf 12a] ; 
ptr = fsetC(t = head)}; 
f or ( 1 =head; 1 < = t a i 1 ; 1 + + ) { 

i f (ot r->drc ) 1 

i f C h >= ot r->rf t & & h < ptr->rft+ptr->drc) i 

//lo-> next raster line 
Ip = ptr->lotr? 

//do it by bytes 

for( i =0 ; i <otr->bytes; i + + ) 

*p++ = * 1 p + + ; 

//uodate lptr for next nass 
otr*>lptr =+ Dtr->bytes; 

} 

//blank line 

else for(i=0;i<ptr->bytes;i++) * p + + = 0; 

> 

//blank character 

else f o r ( i = 0 ; i <p t r->by t es ; i + + ) *p++ = 0; 

ptr = f se t 1 1 + t } ; 

} 

//plot 1 raster line of row of characters 
wri te(oldev/plbuf/ roof (roww + 2a) ) ; 

} 

//row plotted/ plot some white space 
for(h=0;h<5;h++) wri t e (d1 dev, zero» 2) ; 
linecount =+ ht+5; 

//free bytes in reverse order 
f o r ( i = t a i 1 ; i> = head; i -- ) 
i f ( f set t i ) ->oot r ) 

free(fset (i)->ootr); 



int qetdefC) 1 

int blkc/bytc; register i; 
if(hdr[infont*21) { 

bike = (hdr[infont*21 £0177400) >> fl; 

fclkc = S 0377; 

byte = h d r [ i n f on t * 2 + 1 ] ; 
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if(blkc) ( //ptr is in blks and bytes 
seek ( f d t b 1 kc > 3 ) ; seek ( f d / by t c / 1 ) ; > 

else see k ( f p , by t c / 0 ) ; 
qetnodeO; 

a->cc = infont; read ( f o , &a _ > rw , 2 ) ; 
read(fp/&a->l k , 2 ) ; read(fp/&a->rft / 2 ) » 
reao(fp/&a->drc/2) ; 

a->bytes = (a->rw%8 - = 0) ? a->rw/8 : a->rw/8+l; 

if(fcheck()) { //check for bad char dimensions 
if(a->drc) i //need bytes?/ call alloc 

if((i=a->ootr=a->lotr=alloc(a->drc*a->bytes))<0){ 
printf("\nout of memory..."); 
printf("use a smaller pagewioth\n"); 
e x i t ( ) ; > 

read(fD,a->lptr,a*>drc*a“>bytes); 

> 

r e t u r n ( 1 ) ; 

> 

> 

return(O) »' 

} 

getnoaeO < 

i f (nodeot r > 1 27 ) { 

Drintf ("overflow"); exi t () » ) 
a = f set (nodeot r + + ) ; 
a->optr = a~>lptr = 0; 

> 

int roof (x) 

int x; ( //send plotter even a bytes only 
if(x%2 == 0) return(x); 

//for some reason 264 bytes crashes program 
if(x == 26 3) return(262); 

*o = 0; return(++x); 

} 

spac e ( x ) 

int x; { //plot x 1/4 inches soace 
int i ; 

f o r ( i = 0 ; i <X*50; i + + ) wri te(ploev/zero/2); 

1 i necount = + x *50 ; 

} 

check ( ) { //print then exit on bad file 

if(ht < 0 ! ! maxw < 0 ! ! Int < 0 ! ! 

ht > 256 | i maxw > 256 j J Iht > ht) ( 

orintf("bad file"); exit(); 

> 

> 

int n room ( x ) 

int x; { //rtn 1 there are not x plot lines 
//left before bottom; otherwise/ 0 
i f (I inecount t x > PAGEHT) return! 1 ) ; 
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else return(O); 

> 

fcheckO { //if bad c h a r d e f > rtn 0 to skip it 
//otherwise? rtn 1. 

if ( (a->rw<0 '! a->rw>255) !! (a->rft<0 !| a->rft>255) 
!! ( a - > 1 k < 0 !! a->lk>255) J ! (a->drc<0 ! ! a->drc>255) 

) { 

orintf("\ninvalid value for character 1 Xc ' \n" » infont) 
print f ("rw %d\trft % d \ t 1 k % d \ t d r c %d\n"»a->rw> 
a-> r f t f a*>l k,a->drc) ; 
r e t u r n ( 0 ) ; 

} 

else return! 1 ) ; 

} 
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SIGNMKR 



12 May 1977 



SIGNMKR 



DESCRIPTION 





sianmkr <fn> 


Siqnmkr reads lines 


from <fn> and performs limited text 



orocessino. It sets the text in <fn> in the selected 
fonts. Reference 7 provides detailed instructions for 
its use! however, a brief description of available com- 
mands is listed below: 



ESC f < font name> 


Change fonts 


ESCc <t ex t > 


Center < t e x t > 



ESCo <c h a r ac t e r cooe> Set the character indicated 

by the code 



ESCpp 


oaragraDn 


ESCpa 


paged reak 



FILES 

<fn> is a text file 
commands . 


interspersed with any of the above 
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signmkr 



SIGNMKR 



SIGNMKR 



^define TOP 230 // toD margin 

^define PAGEHT 14*100 

i n t rowwl 

i n t si 0 ; 

i nt pagewt h 216; 

int I i necount PAGEHT; 

int pldev, infont/ in, base; 

int h t , m a x w , lht, to, in, r; 

int nodeptr, openbits; 

int zerol32], hdrt256]; 

char *lp, *p, *t, *n, *pl; 

char esc 033; char blank 0 4 0; int c; 

char header[40] { " / . f cn t s . 0 1 / f on t / " > J 

char pbuf (°01 , tbuf(90), plbuf[264); 

char f mark 11281; 

font name [20] , ochar(lO); 

{ 



char 

struct cnode 
int c c ; 

cnar *oo t r ; 
int rw ; 
int bytes; 
int Ik; 
int r f t »* 
int d re » 

} cl i st 11281 ; 

struct cnode *a, *ptr; 

struct cnode *fchar(1291 



//character coae 
//->lst raster line 
//raster line width 
//bytes per raster line 
//left kern 
//rows from top 
//data row coun t 



ma i n ( a rgc » argv) 

int arge; char **argv; { 

if (a rgc < 2 ) e x i t ( ) ; 

else if ( ( i o = open ( a ra v [ 1 ] , 0 ) ) < 0) { 

print f ("cannot open Xs"/arqv (1 1 ) 5 exitO; 

} 

i n i t ( ) ; 

while (oetlnO) outlnOJ 
printf("closed\n M ); exitO; 



i n i t ( ) ( 

register int i; 

i f ( (p I dev : ooen ("/dev/rvo" / 1 ) ) < 0) { 

printf ("cannot open plotter"); exitO; 

> 

for(i=0;i<128;i++) fchar(i) = 0; 

n = f mark ; for(i=0;i<128;i++) * n + + - ~ 1 ; 

fp = 0; cfont("SAIL10"); //default font 



int getlnO ( //rtn 1 if there's a line to 
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//be ol ot t ertl ot herwi se» 0 



char k ; 
t = tbuf; 
k = o ; 

while ( (C*t = qetchO) != ’\n’) && 

(*t != '\0' ) ) ( 

if ( k + + == 89 ) { *t = ' \n ' ; break; } 

t+ + ? 

} 

if ( * t == 'NO' ) return(O)? 
else ret urn ( 1 ) ; 



DutlnO ( //plot as much as can fit in PAGEWTH 
register int h , i ; 
roww = 0; pagewth = 21t>; 

if ( si == 0) si = 2a; 
t - tbuf; p = pbuf ; 
while (*t ! = ' \n ' ) { 

if (*t == esc) ( if (escharO ) break; } 

if (filchar()) break; 



} 

*p = 1 \n ' ; 

if (t = = tbuf) return; //null line in input file 
//check tor room 

if (nroom(ht+(ht/10+l))) pagebreak(); 
for(h=0;h<ht;ht+) { 

pi = &clbuf(sl); *pl = 0; openbits = 8; 
ptr = fchar [* (p = pbuf)); 
while (*p 1= '\n') ( 

r = pt r-> rw ; 
if (ptr->drc) ( 

if(h >= otr->rft && h < p t r -> r f t +p t r -> d r c ) 



> 



} 



) 



i = h - ptr->rft; 

In = Ptr->oPtr + i*ptr->bytes; 
whi le(r > 0) { 

shi ft (); r = - 8 ; } 

else ( 



1 p = zero; 
whi1e(r>0) { 

shi ft()? r =- 8;} 



else { 

1 p - zero; 

wh i 1 e ( r > 0) { 

shift(); r = - 8;} 



) 

Ptr = fchar [* •M-pl ; 

) 

//plot one row raster line 

wri te(ol de v , p 1 buf r roof ( roww + sl * 8 ) ) ; 



} 

//plot some white space 
for(h = 0 ;h < ht /10 + 1 ;ht + ) 
wri te(p 1 deVfZero» 2 ) ; 



linecount = + ht+(ht/10+l); 
si = 0 ; 



eschar!) ! //esc- special characters 
int i/ h i » soace? 
char 1 1 r *tb/ * t e ; 
if(t==tbuf) < 

if ( C c = * + + t) == * f * ) ! //font chanae 

n = f on t name ; t+t? 

while ( (*n = *t++) !=''&& *n 1= '\n' ) 

n + + ; 

t t = * n ; 

*n = ' \0 1 ? c font ( font name ) ? 

if ( (tt == '\n') !i (*t == '\n')) { 

t = tbuf; return(l); } 

1 else if (c == 's’) { //need space 

n = ocharl t+t; 

base = (*t == '0') ? 8 : 10 ; 

while (num(*n = *t)) { 

n + + ? t + + ; > 

* n = ' \ 0 ' ; 

hi - oct (ochar) * ht ? 
if (nroomthi ) ) { 

oaqebreak ( ) ; t = tbuf; return! 1 ) ; } 

for (i=0;i<hi?i++) 

write(oldev,zerof2); 
linecount = + hi ; 
t = tbuf? return! 1 ) »’ 

1 else if (c == 'o')! //no ascii equivalent 

n = ochar? t++; 
base - (*t = = '0') ? 8 : 10; 

while (num((*n = *t)) ) ! 

n + + ; t + + ; 1 

* n — ' \ 0 ' ; t — — ; 

* t = ( C i = oct (ochar)) > -1 & & i < 128 ) ? i 

: blank; 

> else if (c = = 'c') ! //center this line 

while ( * + + 1 == ’ ') ; 

t b = t ; 

while ( * + + t 1 = ' \n ' ) ; 

while ( * -- 1 == ' ') ; 

te = t; space - 0; 
f o r ( t = t b ; t < = t e ; t + + ) ! 

if (hdr!*t*21) 

space - + h d r ( * t * 2 J & 0377; 
else if (her (0 4 0*21) { 

space =+ hdr!040*2J & 0377; 

* t - 0 n o ; 

1 e 1 se ! 

orintf!" input error-- 

orintf("\tundefined character. .. % c \ n " , * t ) ; 
f 1 us h h ( ) ; 

> 

1 
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/ 



soace = (space%8 == 0) ? soace/8 : space/8+i; 

si = 132 - space/2; 
if (si < 2a) < 

printfC" inDut error-- ")? 

printf("\ttoo many characters to center\n"); 
f 1 ushh ( ) ; 

> 

f o r ( i = 0 ; i < s 1 J i + + ) plbuflil = 0; 
t = tb; 

} else if (c == 'p') ( 

if ( (c = * + + t) == ' Q * ) {//pg break 

Dagebreak ( ) ; t = tbuf; return(l); } 
else if (c = = 'o') (//oaraqraph 

for(i=0;i<ht;i++) 

wri te(pldev#zero#2); 
si = 2a + (2/4 * ht/120); 

Daaewth = oagewtH - (2a * ht/120); 
t = tbuf; return! 1 ) » 

} 

else ( 

printfC invalid character f o 1 o w i n g " ) ; 
orint f (" 'ESCd' . ."); 
e x i t ( ) ; 

} 

> e 1 se ( 

printf( M input error- "); 

printf(" \tinvalid escape character... % c " # c ) # 
f 1 ushh ( ) ; 

> 

} else if ( ( c = * + + t) = = 'o') ( //no ascii ecuiv 

n = ochar; t +• + ; 
base = ( *t == ' 0 ’ ) ? 8 : 10 ; 

while (num((*n = *t)) ) ( 

n t + ; t + + ; } 

*n - ' \ 0 ' ; t--; 

*t = ( ( i=oct (ochar) ) > -1 && i < 128) ? i 

: blank; 

> else if (c = = ' f ' ) {//no font chg allowea here 

orintf ("change fonts at line head only "); 
f 1 us h h ( ) ; 

1 e 1 se { 

orintf ("input error- "); 

printf("\t invalid escape character ( %c )\n"rc)J 
print f("\tembedced within text . . .\n" ) ; 
f 1 u s h h ( ) ; 

1 

return(O); 

> 

int filcharf) { //move chars from tbuf to pbuf until 

//PAGEWTH exceeded# replace nonexistent 
//chars with blank; ow# exit 

register int i; 
infont = *t ; 
if (hdr(infont*21) { 
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if ( f c h a r ( i n f on t J == 0) { 

ge t de f O r 

if (roww+a->rw <= pagewth*8) 
roww = + a-> rw ; 

else {*p = '\n'J return ( 1 ) ; } 

> else if ( roww+f char ( i ntont 1 *>rw <= 
roww =+ fchar (infont) *>rwj 
else { *p = ' \n ' ; return( 1 ) ; } 

> else if ( hd r ( ( i n f on t =b 1 an k ) *2 ] ) ( 

* t = blank; 

if ( f c h a r t i n f on t ) = = 0) { 

ge t de f ( ) » 

if (roww+a->rw <= paqewth*8) 
roww =+ a - > r w ; 

else (*p = '\n ' ; return(l);) 

} else if (roww+fchar [infont) ->rw <= 
roww =+ fchar [infont! *>rwj 
else {*P = '\n' ; return(l);} 

> e 1 se { 

p r i n t f ( " character ' % 3 o ' not defined i 
heade r ) } 
f 1 u s h h ( ) ; 

> 

*p++ = * t + t ; 

return(O); 



c font (q) 

char *a; ( //a points to new font narre 

register int i; 
if ( f p ) { 

orintf ("closed\n"); close(fp); 

> 

f o r ( i = 1 6 ; ( heade r [ i 1 = *q + +) 1= '\0';i+ + ) 

i f ( ( f p=open ( h eade r , 0 ) ) < 0) { 

printf ("cannot open Xs" ( header) ; exit 

> 

print f ( " % s opened. . . header) ; 
deal 1 oc (nodept r) ; nodeptr = 0; 
for(i=0;i<128;i++) f c h a r ( i ] = 0 ; 

read(fp#hdr,512); read(fo,&ht/2); 
read(fpf&rr'axw/2); read(fpf&lht/2); 
if(check()) { 

print f("%s toad font file"»header); 
ex i t ( ) »’ 

} 

> 



deal 1 oc ( x ) 

int x) { //free in reverse order 
// of allocation 



} 



while ( x ) 

i f (fchar ( fmark [ — x ) 1 ->opt r) 

free( fchar (fmark ( x J 1 ->opt r) ; 



paqew t h * 8 ) 



pagew t h *8 ) 



n % s " , * t , 



( ) ; 
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paqebreak() { //cage eject 
i n t i ; 
char err; 

err = c ve r s ( p 1 de v / 02 0 ) ; 
if ( err == -1 ) ( 

printff" invalid filedes in pagebreakNn"); 
e x i t ( ) ; 

} 

for ( i =0 ; i <T0P ; i + + ) wri te(oldev»zero>2) ; 
linecount = TOP; 



aetdef ( ) { 

int b1kc»bytc; register i; 

bike = ( h d r [ i n f on t * 2 3 & 0 1 7 7 4 0 0 ) >> 87 

bike =& 0377; 

byte = hd r [ i n f on t *2 + 1 3 ; 

i f (bl kc ) < 

seek ( f p / b 1 kc / 3 ) ; see< ( f p $ by t e / 1 ) ; > 

else see k ( f p , b y t c i 0 ) ; 
get node ( ) ; 
a->cc = i n f on t ; 
readl fp,&a->rw,2) ; 

read(fD*&a->l k , 2 ) 7 read(fe>/8.a->rft ,2) 7 
re ad ( fn,&a->drc/2) 7 

a*>bytes = (a*>rw‘/.g = = 0) ? a->rw/8 : a*>rw/8+l; 

i f ( a->drc ) { 

i f ( ( i =a- >op t r =a 1 1 oc ( a ->d rc *a ->by t es ) ) < 0) { 

deal loc (nodec t r-1 ) ; 
getdefO; return; 

} 

read(fo,a->oof r,a->drc*a->bytes) » 

> 

in - 0 ; 

f o r ( i =0 ; i <noaeo t r 7 i + + ) { 

i f ( f ma r k I i 1 == infont) in+ + ; 

} 

if(in == 0) f ma r k Inodep t r - 1 ] = infont; 



getnoaeO < 

iffnodeptr > 127) { 

orintf ("overflow")/' exi t ( ) J ) 
a = f c h a r [ i n f on 1 3 = &c 1 i s t f nodeo t r + + 3 ; 

a->optr = 0; 



int roof(x) 

i n t x ; { 

x = (x%8 *== 0 ) ? x / 8 ; x/8 + 1 ; 

if(x%2 == 0) return(x); 

if(x == 2to3) return(262); 

* + tpl = 0; return(++x); 



1 3a 



int check ( ) ! 

i f ( h t < 0 ! ! rraxw < 0 ! ! lht < 0 | | 

ht > 120 !! max* > 25b ii lht > h t ) return(l); 
else return(O); 



int n rooir ! x ) 
int x! ! 

ifUinecount + x > PAGEHT) return! 1 ) 1 
else return(O) ; 



shift!) ! 

int t b ; 

tb = * 1 p; tb =& 0377 ; tb =<< ooenbits; 
i f ( r > 7 ) ! 

*pl++ =! !tb S 0177000) >> 8; 

*pl = i 0; *pl = ! tb & 0377; 

} else ! 

if!r <= openbits) i 

* p l = ! (tb & 0177000) >> 8; 
openbits = - r ; 

> e 1 se ! 

*olH =1 (tb & 0177000) >> 8; 

* o 1 =& 0; *pl = ,' tb & 0377; 

openbits = 8- ! r-ooenp i t s ) ; 

> 

l o + + ; 



int oc t ( co ) 

char *co; { 

int i ; i = o ; 

base = (*cp == ' 0 ' ) ? 8 : 10; 

while (num(*cp) i & * c o != ' \ 0 * ) 

i = i ‘base + *cpt+ - 'O'; 

return! i ) ; 



int nun ( c p ) 

char cd! ! 

if(base == 10 & & (cd >= 'O' & & co <= '9')) return! 1) 

i f (base == 8 && (cp >= 'O' && co <= '7')) return! 1 ) ; 

i f (cp == '8' ; : cc == '9' ) { 

printf("input error-- "); 

or i nt f ("\t i rnproper octal number. ..%ci"/cp); 
while !*t 1= '\n') outchar! *t + + ) /' 

exit!); 

} 

else return(0); 



ge t c h ! ) { 

char tt/s; 



s = read C i p, &t t > 1 ) ; 

if ( s ' == 0 ) re t urn ( ' \0 ' ) ; 

else return(tt); 



f 1 u s h h ( ) { //print baa input line and exit 

while (*t 1= ' \n ' ) pu t c h a r ( * t + + ) J 

e x i t ( ) ; 

} 
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